Récupérer le contenu de plusieurs fichiers txt dans un fichier excel

[anber]

Bonjour le forum,

Je recherche le code pour récupérer le contenu de plusieurs fichiers txt dans un fichiers excel en mettant les infos l'une au bout de l'autre

Merci

 

[Hervé]

Re : Récupérer le contenu de plusieurs fichiers txt dans un fichier excel

bonjour anber

ce type de code devrait t'aider :

Option Explicit
Sub Bouton1_QuandClic()
Dim rep As String, chemin As String
Dim Ligne As String, fichier As String
Dim numligne As Long, i As Byte
Dim tablo

chemin = ActiveWorkbook.Path & "\lot\" 'a adapter
fichier = Dir(chemin)

While fichier <> ""
    Open chemin & fichier For Input As #1
    Do While Not EOF(1)
        Line Input #1, Ligne
        numligne = numligne + 1
        tablo = Split(Ligne, vbTab)
        For i = 0 To UBound(tablo)
            Cells(numligne, i + 1) = tablo(i)
        Next i
    Loop
    Close #1
    fichier = Dir
Wend

End Sub

salut

 

[anber]

Re : Récupérer le contenu de plusieurs fichiers txt dans un fichier excel

Bonjour le forum,

Merci Hervé, code OK