Discussion :

[annonceurs83]

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 de votre aide.

[mercatog]

Un début pour lister les fichiers textes d'un répertoire

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
Private Function Lister(ByVal Chemin As String) As Variant
Dim Fichier As String
Dim Tb() As String
Dim i As Long
 
If Chemin <> "" Then
    If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
    Fichier = Dir(Chemin & "*.txt")
    Do While Fichier <> ""
        i = i + 1
        ReDim Preserve Tb(1 To i)
        Tb(i) = Chemin & Fichier
        Fichier = Dir()
    Loop
End If
If i > 0 Then Lister = Tb
End Function

Cette fonction sera appelée par ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim Tb As Variant
Dim i As Integer
 
Tb = Lister("C:\Users\user\Deskto")
If IsArray(Tb) Then
    For i = 1 To UBound(Tb)
        'Code pour importer le fichier Tb(i) dans la feuille Excel 'Importer Tb(i)
    Next i
End If
End Sub

Il reste à créer la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Importer(ByVal Fich As String)
 
'Ici code pour importer les donnée du fichier Fich vers Excel
End Sub

Pour cela, ci-joint 2 liens
http://excel.developpez.com/faq/inde...tFichierTXTado

http://excel.developpez.com/faq/inde...Superieur65536

[kiki29]

Salut, il y a également ( si recherche récursive nécessaire ) http://www.developpez.net/forums/d20...feuille-excel/

[annonceurs83]

merci pour ta réponse , j'ai essayé de tester la macro mais ca fonctionne pas
je suis pas un expert

serait il possible de m'aider a lister les noms et les contenus des fichiers .txt?

la macro ci-dessous marche bien mais il manque juste les noms des fcihiers

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
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