Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Sub Prod21_1erpartie() Sheets("Production").Select Application.ScreenUpdating = False 'cacher l éxecution de la macro Dim fic As String Dim CL1 As Workbook, Chemin Dim fl As Worksheet Dim thomas As Worksheet Dim Lignecopie As Long Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\" fic = Dir(Chemin & "A200_PROD_21_LOT*.xls") Do Until fic = "" Set CL1 = Workbooks.Open(Chemin & fic) DoEvents Set fl = CL1.Worksheets("14") Set FL2 = Workbooks("Archive-A200.xls").Sheets("Production")
mon code au_dessus permet d'ouvrir des fichiers et une feuille en particulier
le probleme c'est que j'ai 2 type de fichiers qui ont le meme nom sauf une tite difference a la fin
Exemple
A200_PROD_21_LOT_77777777.xls 1er classeur
A200_PROD_21_LOT_7777777_2.xls 2eme classeur
et leurs feuilles est differentes
feuilles du 1er classeur "14"
feuilles du 2eme classeur "14_2"
le probleme que j'ai c'est que j'ouvre les 2 type de classeur et je ne veux pas car apres avec la feuille ca me bug le programme
et je n'arrive pas a trouver une solution justement pour differencier les 2 classeurs
il y a toujours 7 chiffres dans le nom des classeurs
merci d'avance pour le coup de main
Partager