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)
