Bonjour à tous,

J'ai de la difficulté à faire fonctionner une boucle dans un projet de macro Excel.
Le macro doit premièrement charger un fichier texte pour ensuite extraire des informations.
Mon macro fonctionne mais le hic c'est que je n'arrive pas à faire une boucle pour que l'extraction des données continuent plus loin dans le fichier texte.

Mon code jusqu'à maintenant :

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
32
33
34
35
36
37
38
39
40
41
42
 
myFile = "C:\Users\lsebe\Desktop\texte.txt"
Open myFile For Input As #1
Do Until EOF(1)
    Line Input #1, textline
     text = text & textline
Loop
Close #1
 
 
    i = 1
 
    Dim vItm As Variant
    Dim aStrings(1 To 2) As String
 
    aStrings(1) = "INFORMATION DE BASE ET DONNÉES DE CALCUL"
 
    For Each vItm In aStrings
        DDC = InStr(text, "Date du calcul")
        DDR = InStr(text, "Date de retraite .")
        ADC = InStr(text, "Âge à la date du calcul")
        SE = InStr(text, "Service d'emploi")
        SP = InStr(text, "Service de participation")
        SG = InStr(text, "Salaire gagné")
        Cells(i + 1, 1).Value = Mid(text, DDC, 14)
        Cells(i + 1, 2).Value = Mid(text, DDC + 36, 10)
        Cells(i + 2, 1).Value = Mid(text, DDR, 16)
        Cells(i + 2, 2).Value = Mid(text, DDR + 36, 10)
        Cells(i + 3, 1).Value = Mid(text, ADC, 23)
        Cells(i + 3, 2).Value = Mid(text, ADC + 36, 6)
        Cells(i + 4, 1).Value = Mid(text, SE, 16)
        Cells(i + 4, 2).Value = Mid(text, SE + 36, 6)
        Cells(i + 5, 1).Value = Mid(text, SP, 24)
        Cells(i + 5, 2).Value = Mid(text, SP + 36, 6)
        For v = 0 To 10
        j = v * 228
        Cells(v + 7, 1).Value = Mid(text, SG + j, 24) + Mid(text, SG + 64 + j, 10) + "/ " + Mid(text, SG + 77 + j, 10)
        Cells(v + 7, 2).Value = Mid(text, SG + 103 + j, 10)
        Next v
        Next vItm
 
End Sub
Exemple du résultat que j'obtiens :

INFORMATION DE BASE ET DONNÉES DE CALCUL
Date d'emploi 1998-09-28
etc...
etc...

Exemple du résultat que je veux obtenir :

INFORMATION DE BASE ET DONNÉES DE CALCUL
Date d'emploi 1998-09-28
etc...
etc...
INFORMATION DE BASE ET DONNÉES DE CALCUL
Date d'emploi 1996-10-22
etc...
etc...
etc......


Savez-vous comment pourrais-je arriver à boucler cette séquence afin d'obtenir le résultat voulu?

Merci et bonne journée!