filtrer avec getopenfilename

[drisou]

Bonsoir le forum

avec : Application.GetOpenFilename ("fichiers excel,*.xls"), j'ouvre le dossier par défaut "mes documents", ensuite n"apparaissent que les fichiers "xls", car filtré,
ce que je souhaite maintenant, c'est ne faire apparaitre que les fichiers xls commençant par la lettre "d" ,
j'ai essayé diverses syntaxes ,mais je n'y arrive pas .

merci pour votre aide.

 

[camarchepas]

Re : filtrer avec getopenfilename

Bonjour,

Ecriture un peu moins compacte.

Sub vv()
    Dim fd As FileDialog
    Dim NomFichier As String
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Filters.Add "Fichiers Excel", "*.xls*"
        .Title = "Recherche de fichier"
        .InitialFileName = "d*.xls*"
    End With
    If fd.Show = -1 Then NomFichier = fd.SelectedItems(1)
 
    Set fd = Nothing
End Sub