Sub test()
Dim infosLigne As String
Dim i As Integer
Dim Fichier As String, Direction As String
'répertoire cible pour la recherche des fichiers
Direction = 'C:\\Documents and Settings\\michel\\excel'
'définit les types de fichiers à ouvrir
Fichier = Dir(Direction & '\\*.txt')
Do While Fichier <> '' 'pour boucler sur tous les fichiers txt du répertoire
'Open : ouverture du fichier texte
'Input : Pour ouvrir un fichier en lecture
Open Direction & '\\' & Fichier For Input As #1
Do While Not EOF(1) ' Vérifie si la fin du fichier est atteinte.
i = i + 1
'instruction Line Input #1: Lit la ligne dans la variable infosLigne
Line Input #1, infosLigne
'infosLigne est une variable (string) qui recupere les données
'de la ligne en cours de lecture
'dans cet exemple on verifie si la ligne contient la donnée saisie dans le TextBox1
If infosLigne Like '*' & TextBox1 & '*' Then
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = '80;80'
.AddItem Fichier '(en 1ere colonne)
.List(.ListCount - 1, 1) = i 'en 2eme colonne
End With
End If
Loop 'boucle dans le fichier txt
Close #1 'fermeture du fichier
i = 0
Fichier = Dir ' Extrait le nom de fichier suivant
Loop
End Sub