salut marabout et daphnée
je reactive ce fil car j'ai deja eu le probleme de marabout et c'est myta qui avait resolu le probleme
voici la macro de l'epoque faut peut etre la modifier pour ton utilisation
Sub Lire_fichier()
On Error Resume Next
a = Timer
Ligne = 1: Colonne = 1
Cells(Ligne, Colonne).Activate
'Lecture des données contenues dans un fichier texte
Open "C:\Mes Documents\resultat.txt" For Input As #1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Textline
If Len(Textline) < 5 Then GoTo Saut
Do Until Asc(Right(Textline, 1)) <> 9
Textline = Mid(Textline, 1, Len(Textline) - 1)
Loop
Textline = Textline + Chr(9) + Chr(9)
'Extraire la chaine de caractères
nbre = 1: compte = 0
longueur = Len(Textline)
For i = nbre To Len(Textline) - 1
If Asc(Mid(Textline, i, 1)) <> 9 Then
compte = compte + 1
Else
Cells(Ligne, Colonne) = CDbl(Mid(Textline, nbre, compte))
Cells(Ligne, Colonne).NumberFormat = "General"
Ligne = Ligne + 1
nbre = nbre + compte + 1
compte = 0
If Ligne > 65534 Then
Colonne = Colonne + 1
Ligne = 1
End If
End If
Next i
Saut:
Loop
Close #1
b = Timer
MsgBox ("Temps d'exécution" & (b - a) & "secondes.")
End Sub
@+