salut
je suppose que ton fichier est un *.TXT
quand tu arrives au bout de la colonne a tu passe a B
Sub Lire_fichier_txt()
On Error Resume Next
ligne = 1: colonne = 1
Cells(ligne, colonne).Activate
'Lecture des données contenues dans un fichier texte
Open "D:\Documents and Settings\toto.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
End Sub
j'ai eu le meme probleme est c'est myta quia trouvé la solution
merci myta
@++
