Salut, j'avais le même pb. Comme on te le dis plus haut, c normal avec cette version d'excel. et StartRow ne fonctionnera pas non plus au delà de 65536 / 2. Par contre, dans le site, j'ai trouvé une autre façon de faire. Voici du code similaire à OpenText mais version "brute". Il permet de prendre une ligne d'un fichier text sur 60. Séparateur = tab
maintenant je pense que si toutes les données te sont importantes tu peux facilement (je pense) insérer dans d'autres feuilles : (désolé je l'ai pas commenté) :
Sub ReceptionMesure()
Dim saut, act As Integer
Dim Ligne As String
Dim LigneExcel As Double
Dim z, i, a, e, PointVirgule1, PointVirgule2 As Integer
Dim L, Long1, Long2, Long3 As Integer
Dim Data1, Data2, Data3 As String
Dim stFichier As String
saut = 60
LigneExcel = 1
act = 1
e = 0
i = 1
L = 0
z = 1
Open "C:\mesure.txt" For Input As #1
Do While EOF(1) = False
e = 0
i = 1
L = 0
z = 1
Line Input #1, Ligne
If (act = 1) Then
Do While i > 0
i = InStr((e + 1), Ligne, Chr(9))
If (i > 0) Then
Data = Mid(Ligne, (e + 1), i - (e + 1))
Long1 = Len(Data)
L = L + Long1
Else
der = Len(Ligne) - L
Data = Mid(Ligne, e + 1, der)
i = 0
End If
e = i
a = a + 1
With ActiveWorkbook.Worksheets("Feuil1")
.Cells(LigneExcel, z) = Data
End With
z = z + 1
Loop
LigneExcel = LigneExcel + 1
Else: If (act >= saut) Then act = 0
End If
act = act + 1
Loop
Close
End Sub