Voila mon code
ce code me permet d'ouvrir un fichier et de copier une cellule
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
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
Partager