Debuger un programme

Bonjour à tous,

voila j'ai essayé une nouvelle macro adapté a mon fichier ci-jointhttps://www.cjoint.com/?CFhrlq5H51W , qui permet d'importer la dernière ligne de ce fichier texte sauf que ça bug " erreur d'exécution '63':

Numéro d'enregistrement incorrect" et je ne sais pas d'ou vient ce problème?


Type Enregistrement

Date As String * 10
Time As String * 8
Temp_Out As String * 7
Hi_Temp As String * 7
Low_Temp As String * 6
Out_Hum As String * 7
Dew_Pt As String * 6
Wind_Speed As String * 6
Wind_Dir As String * 7
Wind_run As String * 6
Hi_Speed As String * 7
Hi_Dir As String * 5
Wind_Chill As String * 7
Heat_Index As String * 7
THW_Index As String * 7
Bar As String * 8
Rain As String * 6
Rain_Rate As String * 7
Heat_D_D As String * 8
Cool_D_D As String * 8
In_Temp As String * 6
In_Hum As String * 7
In_Dew As String * 7
In_Heat As String * 7
In_EMC As String * 6
In_Air_Density As String * 8
Wind_Samp As String * 6
Wind_Tx As String * 6
ISS_Recept As String * 8
Arc_Int As String * 6

End Type

Sub DerLigne()

Dim Enrg As Enregistrement
Dim I As Long
Dim Der As Long

Open "D:\texte.txt" For Random As #1 Len = Len(Enrg)

'calcule le nombre d'enreristrement...
Der = LOF(1) / Len(Enrg)

'et récupère le dernier
Get #1, Der, Enrg

Close #1

'et les inscrits dans la ligne 1
With Enrg

Range("A1") = .Date
Range("A1").Offset(0, 1) = .Time
Range("A1").Offset(0, 2) = .Temp_Out
Range("A1").Offset(0, 3) = .Hi_Temp
Range("A1").Offset(0, 4) = .Low_Temp
Range("A1").Offset(0, 5) = .Out_Hum
Range("A1").Offset(0, 6) = .Dew_Pt
Range("A1").Offset(0, 7) = .Wind_Speed
Range("A1").Offset(0, 8) = .Wind_Dir
Range("A1").Offset(0, 9) = .Wind_run
Range("A1").Offset(0, 10) = .Hi_Speed
Range("A1").Offset(0, 11) = .Hi_Dir
Range("A1").Offset(0, 12) = .Wind_Chill
Range("A1").Offset(0, 13) = .Heat_Index
Range("A1").Offset(0, 14) = .THW_Index
Range("A1").Offset(0, 15) = .Bar
Range("A1").Offset(0, 16) = .Rain
Range("A1").Offset(0, 17) = .Rain_Rate
Range("A1").Offset(0, 18) = .Heat_D_D
Range("A1").Offset(0, 19) = .Cool_D_D
Range("A1").Offset(0, 20) = .In_Temp
Range("A1").Offset(0, 21) = .In_Hum
Range("A1").Offset(0, 22) = .In_Dew
Range("A1").Offset(0, 23) = .In_Heat
Range("A1").Offset(0, 24) = .In_EMC
Range("A1").Offset(0, 25) = .In_Air_Density
Range("A1").Offset(0, 26) = .Wind_Samp
Range("A1").Offset(0, 27) = .Wind_Tx
Range("A1").Offset(0, 28) = .ISS_Recept
Range("A1").Offset(0, 29) = .Arc_Int

End With

End Sub