Bonjour,

Dans la conception de ma macro, je souhaite ouvrir plusieurs fichiers les un après les autres.
Ces fichiers ont un libellé similaire, seul 2 caractères numériques divergent. J'ai donc créé une variable numérique avec un boucle "For".

Nom : Nom fichier.PNG Affichages : 1265 Taille : 3,7 Ko

Au premier passage, pas de problème, il reconnais le le chemin et libellé du fichier. Des qu'un fichier n'existe pas, la boucle s’enclenche...mais s'en s’arrêter.

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
 
Sub concatene()
Dim infolog, final As Workbook
 
Dim Nomfichier As String
Dim cpt, i As Double
 
dateJ = Date
dateYYYY = Right(dateJ, 4)
dateMM = Left(Right(dateJ, 7), 2)
dateDD = Left(dateJ, 2)
dateFic = dateYYYY & dateMM & dateDD
cpt = 1
 
For i = 5 To 93
 
Nomfichier = Dir("C:\Users\kgues\Documents\Alerte CASSE appro\Donnees\Liste0" & i & "_" & dateFic & " .xls")
 
    Do While Nomfichier = ""
        i = i + 1
     Loop
 
Next
Pourriez-vous m'aider à améliorer mon code svp.

Merci