[VBA/Excel] Bouton parcourir dans UserForm

Fermé
fisico_6403 Messages postés 10 Date d'inscription mercredi 8 décembre 2010 Statut Membre Dernière intervention 6 juin 2011 - 20 janv. 2011 à 15:05
 melanie1324 - 25 janv. 2011 à 12:49
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.

A voir également:

1 réponse

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