Voila mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub recopie()
Dim A180_PROD_1_LOT_7083004 As Workbook
Dim fl As Worksheet
Dim Cell As Range
    Set thomas = Workbooks.Open("C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\A180_PROD_1_LOT_7083004.xls")
    Set fl = thomas.Worksheets("5")
    Workbooks("thomas.xls").Sheets("Feuil1").Range("A1").Value = _
      fl.Range("A14").Value
 
End Sub
ce code me permet d'ouvrir un fichier et de copier une cellule

je voudrais trouver une solution pour que ce code ouvre plusieurs fichier qui ont le meme nom A180_PROD_1_LOT_7083004 mais pas le meme numero de fin (en rouge)

et de copier la cellule A14 de tous ces fichier dans le fichier thomas a la suite
et apres de fermer les fichiers excel

Est ce possible de faire cette opération en caché?


J'ai deja essayer de remplacer les numéros par des * ou des # car ils ont tous le meme nombre de numéro mais ca ne marche pas

si vous avez une idée pour m'aiguiller

merci d'avance