{VBA Excel}Probleme sur macro mauvaise lecture de feuille excel
Code:
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
