Code vba pour faire un explorateur

Bonjour,

Etant débutant en vba je vais essayer d'expliquer clairement ce que je souhaite.
J'ai crée un userform dans Excel avec une zone de texte et un bouton browse à coté
Je voudrai dans un premier temps mettre du code pour ce bouton browse pour que cela m'ouvre un explorateur de disque dans lequel je pourrais aller chercher un fichier xls
Dans un 2eme temps je voudrais récupérer ce fichier (enfin son chemin) dans la zone de texte .

J'ai testé avec la fonction "Application.Dialogs(xlDialogOpen).Show" mais cela ouvre le fichier sélectionner.

Quelqu'un aurais un solution?

Merci

Bonjour,

Un exemple a adapter :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'Ouverture de la boite de dialogue => choix du chemin Dim mychemin As Variant mychemin = Application.GetOpenFilename("Tous les fichiers, *.*,Fichiers Textes , *.txt ,Fichiers office, *.xls;*.doc;*.ppt,Fichiers Word , *.doc", , "Selectionner le fichier à convertir", "Selection", False) 'fenetre pour selection du fichier   If VarType(mychemin) = vbBoolean Then ' GoTo fin Else MyFic = Mid(mychemin, InStrRev(mychemin, "\") + 1) End If   ' pour ouvrir Workbooks.Open Filename:=mychemin

---

Merci çà marche nickel :ccool: