Extraite ligne d'un fichier texte avec incrémentation

[pierre01]

bonjour,

Je voudrais connaître la procédure à suivre pour extraire des données d'un fichier txt avec excel par des incrémetation.
Sachant que je veux par exemple extraire la ligne 101 et 103 et ensuite toutes les 51 lignes.
Par exemple je veux la ligne 101 et 103 puis 152 et 154 puis 203 et 205 puis 254 et 256....jusqu' à la fin du fichier.

Merci d'avance

 

[tototiti2008]

Re : Extraite ligne d'un fichier texte avec incrémentation

Bonjour pierre01,

Bienvenue sur XLD,

un truc comme ça, je pense :

Sub ImpotTXT()
Dim FS, F, i As Long
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set F = FS.OpenTextFile("c:\test.txt", 1, -2)
    i = 1
    Do Until F.AtendOfStream
    Ligne = F.readline
    i = i + 1
    If i > 100 Then
        If (i - 100) Mod 51 = 1 Or (i - 100) Mod 51 = 3 Then
            Range("A65536").End(xlUp).Offset(1, 0).Value = Ligne
        End If
    End If
    Loop
    F.Close
End Sub