Sub MacroAnalyse()
Dim Nom_Fichier$, T, Tdata, DL, Nom$
On Error GoTo Fin
' Ouverture fichier données
Nom_Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
If Nom_Fichier <> "Faux" Then
Workbooks.Open Filename:=Nom_Fichier
End If
' Transfert données
DL = Range("A1000000").End(xlUp).Row
Tdata = Range("A1:E" & DL)
' Fermeture fichier données
If Nom_Fichier <> "Faux" Then
T = Split(Nom_Fichier, "\"): Nom = T(UBound(T))
Windows(T(UBound(T))).Activate
ActiveWorkbook.Close Savechanges:=False
End If
' Colle datas
DL = Range("A1000000").End(xlUp).Row
Range("A1:E" & DL).ClearContents
Sheets("Données").Range("$A$1").Resize(UBound(Tdata, 1), UBound(Tdata, 2)) = Tdata
' Vérif validité données
If [B1] <> "SampleCounter" Or [E1] <> "Fz" Then
Range("A1:E" & DL).ClearContents
MsgBox "Format de fichier érroné"
Exit Sub
End If
' Traitement
TracerCourbe (Nom)
Sheets("Courbe").Select
Fin:
End Sub