re le forum et hurricane
N'ayant pas le format de ton fichier texte essaye ceci
Sub Read_text_File()
rang = 1: col = 1
Cells(rang, col).Activate
'Lecture des données contenues dans un fichier texte
Open "C:\Mes Documents\bin.txt" For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
'Affiche le fichier lue
With ActiveCell
.NumberFormat = "@"
.Value = Textline
End With
rang = rang + 1
If rang > 65535 Then
rang = 1
col = col + 1
End If
Loop
Close #1
End Sub
A suivre