Discussion :

[Thomas69]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thomas69]

Vu que la difference entre mes deux feuilles juste le nom qui change de 16 à 11

j'ai tenter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set fl = CL1.Worksheets("1*")

mais cela n'a rien donné j'ai aussi essayer de mettre des ? ou # pour dire que remplacer les caractères que je définissait pas et ca ne marche pas

[fring]

Bonjour,

Comme ceci peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
On Error Resume Next
Set fl = Worksheets("16")
If fl.Name = "" Then
Set fl = Worksheets("11")
End If

Si le "16" n'existe pas il prendra en compte le "11"

[Thomas69]

je te remercie fring ca marche