[VBA Excel] Rajout d'une condition logique
Bonjour
Je viens de créer une macro qui permet d'allez sur le réseau et de lire tous les fichiers si trouvant et de récupéré sur une feuille excel en particulier a l'interieur du fichier qui contient plusieurs feuilles
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Sub Prod14()
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 = [Répertoire]
fic = Dir([Répertoire] & "A200_PROD_14_LOT*.xls")
Do Until fic = ""
Set CL1 = Workbooks.Open(Chemin & fic)
DoEvents
Set fl = CL1.Worksheets("16")
Set FL2 = Workbooks("Archive-A200.xls").Sheets("Production")
i = 270
FL2.Range("A" & FL2.Range("A65536").End(xlUp).Row + 1 & ":A" & FL2.Range("A65536").End(xlUp).Row + 1 + i).Value = _
fl.Range("B1").Value |
comme on peut le voir apres la lecture du fichier je recopie certaine lignes j'ai pas mis tout le programme complet
le soucis ce pose est que actuellement on a mis de nouveaux produits ayant le meme nom,et les memes feuilles
le probleme est le nom de la feuille qui a changé "ligne en rouge au-dessus"
je voudrais continuer a me servir de ce programme pour prendre les anciens produits et les nouveaux
j'ai tenter dans un 1er temps de mettre un choix avec Or
Code:
Set fl = CL1.Worksheets("16") Or CL1.Worksheets("11")
mais cela ne marche pas
donc j'ai penser a mettre une condition logique
si c'est ce fichier je prend tel nom si c'est un autre je prend tel nom
mais je n'arrive pas a mettre cela en place et je pense que c'est assez lourd aussi et qu'il doit y avoir plus simples
si des personnes aurait des conseils ou un coup de main
je suis prenneur
Merci
