re
classique pour le fichier
des infos à tester. Si tu connais ton répertoire, pour pouvoir sélectionner un fichier :
je suis dans répertoire et j'ai un sous-répertoire 'Données' contenant les fichiers
répertoire = ThisWorkbook.Path & '\\DONNEES'
....
' Sélection du fichier de données
Dim Ouvrir As Variant
ChDir (répertoire)
' ouverture de fichier excel
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
' ouverture du fichier sélectionner
Workbooks.Open Filename:=Ouvrir
....
extrait d'une de mes applis. le getopen affiche la boite de dialogue Excel, le open ouvre
A adapter
A+