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