Discussion :

[theBinette]

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

[aalex_38]

Bonjour,

Un exemple a adapter :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[theBinette]

Merci çà marche nickel