lister noms et contenu fichier .txt dans fichier excel

[ridhaghanmi]

salut forum !
j'ai besoin de votre aide. je suis a la recherche d'une macro qui permet de lister les noms et le contenu des fichiers .txt dans un fcihier excel.

Merci infinement...

 

[ridhaghanmi]

Re : lister noms et contenu fichier .txt dans fichier excel

j'ai trouvé ce code , serait-il possible de m'aider a l'adapter ? cette macro peut lister seulement les contenus des fichiers .txt , je veux lister aussi les noms des fichiers.. merci pour l'aide.

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

 

[Matheop]

Re : lister noms et contenu fichier .txt dans fichier excel

Salut ridhaghanmi.

J'ai codé la macro suivante sous Excel 2003, elle permet de lister les fichiers dont l'extension est .txt ( le répertoire est bien évidemment à modifier selon les besoins). En revanche elle ne permet pas d'afficher le contenu de chacun de ces fichiers. Je te laisse un peu chercher et j'essaie de faire ça de mon côte en attendant.

Sub Fichiers()
    Sheets(1).Range("A1").Select
    Ligne = ActiveCell.Row
    Temp = Dir("U:\Mon eXcel\*.txt", vbNormal)
    Chemin = ActiveWorkbook.Path
    Do
       If Temp = "" Then
         Exit Do
       Else
         ActiveCell.Value = Temp
         fichierAOuvrir = Chemin & "\" & ActiveCell.Value
         Ligne = Ligne + 1
         Cells(Ligne, 1).Select
       End If
       Temp = Dir
   Loop
End Sub