Ouvrir nue arborescence pour selectionner un fichier

[FoxCore2001]

Salut à tous,
je recherche une méthode qui me permettrait dans excel toujours, à partir d'un bouron, de pouvoir allé cherché le chemin complet d'un fichier afin de le copier.
Merci à tout le forum !

 

[EricS]

Bonjour

essaie ceci


répertoire = "C:\.....................\ A DEFINIR

' Sélection du fichier de données
Dim Ouvrir As Variant
ChDir (répertoire)
Ouvrir = Application.GetOpenFilename(filefilter:="Classeur Microsoft Excel (*.xls),*.xls", Title:="Récupération des Données ")
If Ouvrir = False Then MsgBox "aucun fichier sélectionné", vbOKOnly + vbCritical, "fin de procédure ": Exit Sub

' récupération des données
Workbooks.Open FileName:=Ouvrir

A+
Eric

 

[FoxCore2001]

C géant, mille merci EricS, tu me sauve la vie. A charge de revanche, et merci au reste du forum.