Sub ReadTxtFile() ' Lit un fichier texte ligne par ligne
On Error GoTo Erreur
Dim Chaine As String, Fichier As String, UneLigne As String, i As Integer, f As Integer
Fichier = ActiveWorkbook.Path & "\" & "FichierTexte.txt"
f = FreeFile
Open Fichier For Input As #f
i = 0
While Not EOF(f) ' EOF : End Of File
i = i + 1
Line Input #f, UneLigne
LectureFichier = UneLigne ' La ligne lue est dans LectureFichier
Wend
Close #f
Exit Sub
Erreur:
MsgBox "Le fichier de sortie est inaccessible"
End Sub