[VBA/Excel] Bouton parcourir dans UserForm

fisico_6403 Messages postés 13 Statut Membre -  
 melanie1324 -
Bonjour :)

J'aimerais créer un petit UserForm avec possibilité de choisir son fichier. Jusque là j'y arrive. Mais j'aimerais en plus qu'il propose par défaut le uniquement les fichier qui s'appellent "import_excel.txt" ou alors, au moins les fichiers avec l'extension .txt

Pour l'instant mon code est le suivant, mais là je peux choisir n'importe quel type de fichier.

Private Sub parcourir_Click()

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        chemin.Text = .SelectedItems(1)
    End With

End Sub


Merci.

1 réponse

  1. melanie1324
     
    Bonjour,

    Private Sub parcourir_Click()

    With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = False
    .InitialFileName = "import_excel.txt"
    .Show
    chemin.Text = .SelectedItems(1)
    End With

    End Sub
    2