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