Sub OpenGpx()
Dim FichierGPX As Variant
'-----Ouverture du fichier gpx------------
'Cette méthode GetOpenFilename affiche la boîte de dialogue standard Ouvrir et lit un nom de fichier
'Cette méthode renvoie le nom du fichier sélectionné
'ou le nom tapé par l'utilisateur.
'Le nom renvoyé est susceptible d'inclure une spécification de chemin.
FichierGPX = Application.GetOpenFilename(FileFilter:="Fichiers Gpx (*.gpx), *.gpx ", Title:="Fichier gpx", MultiSelect:=True)
'Arrêt de la procédure si on clique sur Annuler
If IsArray(FichierGPX) Then
NbreFichier = UBound(FichierGPX)
For i = 1 To NbreFichier
Workbooks.Open Filename:=FichierGPX(i)
NomFichierGPX = Dir(FichierGPX(i), vbNormal)
Windows(NomFichierGPX).Activate
Call CalculGPX
'Fermeture du fichier gpx
Workbooks(NomFichierGPX).Close SaveChanges:=False
Next
Else
If FichierGPX = False Then Exit Sub
End If
End Sub