C
cissou69
Guest
Bonsoir,
J'ai honte mais bon on va dire qu'on est vendredi soir...
Voici un bout de mon code :
La partie Left(lesdatas(N, 11), 4) = "1141" peut prendre une vingtaine de valeurs non successives. Plutôt que de recopier vingt fois ce bout de code, j'aimerais créer une boucle ou une répétition en fonction de cette valeur. Par ailleurs cette valeur peut être composée de 4 ou 5 chiffres.
Merci de votre aide,
J'ai honte mais bon on va dire qu'on est vendredi soir...
Voici un bout de mon code :
Code:
If Left(lesdatas(N, 5), 7) = "Fichier" And Left(lesdatas(N, 11), 4) = "1141" Then
Fichier = lesdatas(N, 6)
Nom_Onglet = lesdatas(N, 2) & lesdatas(N, 1)
FileToOpen = "H:\CDR\LIMSattach\" & Fichier
Workbooks.Open Filename:=FileToOpen
Sheets(1).Select
Sheets(1).Copy After:=Workbooks(1).Sheets(2)
Sheets(3).Name = Nom_Onglet
Workbooks(Fichier).Close SaveChanges:=False
Application.CutCopyMode = False
Worksheets("Résultats d'analyse").Cells(c.Row, d.Column).Value = "cf onglet"
End IfLa partie Left(lesdatas(N, 11), 4) = "1141" peut prendre une vingtaine de valeurs non successives. Plutôt que de recopier vingt fois ce bout de code, j'aimerais créer une boucle ou une répétition en fonction de cette valeur. Par ailleurs cette valeur peut être composée de 4 ou 5 chiffres.
Merci de votre aide,