Discussion :

[kimou75]

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".



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

[Thautheme]

Bonjour Kimou, bonjour le forum,

Manquerait pas un Nomfichier = Dir avant le Loop ? Tu pourrais aussi simplifier la variable DateFic : DateFic = CStr(Format(Date, "yyyymmdd")).

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim I As Integer, dateFic As String, Nomfichier As String
dateFic = "20160317"
 Nomfichier = "toto"
    Do While Nomfichier <> ""
           I = I + 1
         Nomfichier = Dir("C:\Users\kgues\Documents\Alerte CASSE appro\Donnees\Liste" & Format(I, "#00") & "_" & dateFic & " .xls")
         If Nomfichier <> "" Then traitement
     Loop

[patricktoulon]

bonjour
en fait c'est ta variable i qui est interprété comme tel hors tes nom de fichier sont du style
liste01720160315
il faut donc que tu ajoute un zéro entre guillemet dans la concaténation

Code :

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

1
2
3
for i= 1 to 93
fichier="liste0" & i & 'ta date  & ".extension"
next

[Invité]

Format(I, "0#") ' ajoutera le zéro!!

Mais oui c'est encore plus simple

[kiki29]

Salut, à consulter : Manipuler les chaînes de caractères en VB6 et VBA Excel