Extraite ligne d'un fichier texte avec incrémentation

pierre01 · 16 Mars 2010

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 · 16 Mars 2010

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

Bonjour pierre01,

Bienvenue sur XLD,

un truc comme ça, je pense :

Code:

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

Extraite ligne d'un fichier texte avec incrémentation

pierre01

Guest

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Extraite ligne d'un fichier texte avec incrémentation

pierre01

Guest

tototiti2008

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency