Discussion :

[Thomas69]

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

[jfontaine]

J'ai pas tout compris

[Thomas69]

ma macro ouvre un fichier A200_PROD_21_LOT_*.xls

mais il y a un autre fichier qui se nomme A200_PROD_21_LOT_*_2.xls


et quand je lance ma macro il ouvre les 2 type de fichier alors que je voudrais ouvrir que le 1 ou que le 2 eme

et je sais pas comment faire la difference pour le 1er car le signe * me gene mais aussi il me permet d'ouvrir pleins de fichiers car apres le mot LOT il y a des series de 7 chiffres

Exemple

A200_PROD_21_LOT_1234567.xls
A200_PROD_21_LOT_7654321.xls
A200_PROD_21_LOT_6547123.xls


donc voila le soucis

[jfontaine]

Et si tu bouclais plutot sur les fichiers du repertoire et que tu ouvrais le fichier correspondant au début du nom du fichier

[Thomas69]

j'ai remarquer que le 1er fichier c'est 7 caracteres et l'autres 9
donc j'ai fait la difference sur ce point la en remplacant les caracteres par des ?