parcourir le disque dure

[Metmo]

bonjour,
je recherche un script (si qqu en a un simple sous le coude) pour mettre un bouton parcourir afin d'aller chercher sur le disque un Fichier Txt et récupérer le chemin d'accès au fichier afin de pouvoir travailler dessus.


exemple
Workbooks.OpenText FileName:="SGSN.txt"

"SGSN.txt" est trop restrictif est demande a l'utilisisateur de ouvrir le fichier excel contenant la macro dans le même répertoire que "SGSN.txt"

le bouton parcourir me permettrais d'avoir un chemin complet dynamique.

Merci àceux qui prendront du temps pour me répondre

 

[sousou]

Il suffit d'utilisé la boite de dialogue integrée d'excel
(Si j'ai compris la question)

Workbook.Open Application.Dialogs(xlDialogOpen).Show

 

[Metmo]

ouais c un bon début mais je voudrais récupérer après la selection du fichier le path pour l'utilisé dans le code

Workbooks.OpenText FileName:="SGSN.txt", _
DataType:=xlDelimited, Space:=True, other:=True, OtherChar:="-"

 

[sousou]

Sub test()
Application.Dialogs(xlDialogOpen).Show
Set monfichier = ActiveWorkbook
monchemin = monfichier.Path
MsgBox monchemin
End Sub