J'ai créer une maccro qui me permet d'allez dans un repertoire et de prendre certain fichiers

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
fic = Dir(Chemin & "A200_PROD_4_LOT*.xls")
Do Until fic = ""
     Set CL1 = Workbooks.Open(Chemin & fic)
     DoEvents
     
     Set fl = CL1.Worksheets("2")
     Set FL2 = Workbooks("Archive-A200.xls").Sheets("Production")
en rouge c'est le repertoire qui est fixe

je voudrais le faire de maniere dynamique c'est a dire que sur mon fichier excel quand je clique sur un bouton une fenetre apparait et me permet de choisir un repertoire sur mon réseau (un peu comme ouvrir un fichier ou je veux)

mais je ne sait pas comment m'y prendre et j'ai fait des recherches mais sans succes

si vous aviez un conseil ou un coup de main a me passer faites le svp

je vous en remercie d'avance