Bonjour,
Je ne sais pas ce que tu as "derrière" que tu ne nous montres pas, notamment
où et comment tu as déclaré FichierDialogue !
Si tu veux afficher tous les fichiers d'extension .xls, ce n'est pas un fichier, que tu dois mettre dans initialfilename, mais un chemin complet de dossier
Dim NomFichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear
.Filters.Add "Fichiers Excel", "*.xls"
.Title = "Ouvrir"
.InitialFileName = "D:\ANDRECOURBE" '====>> ici : un dossier, pas un ficfhier
.Show
If .Show = -1 Then
NomFichier = .SelectedItems(1)
MsgBox NomFichier
End If
End With
Tu ne peux à la fois forcer un fichier et les avoir tous affichés.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ