Syntaxerror
XLDnaute Junior
Bonsoir à tous !
Voici un petit problème que je n'arrive pas à résoudre. J'ouvre plusieurs fichiers avec Getopenfilename. Je voudrais que les fichiers sur lesquels je vais travailler (importer des donneés, calculer et faire des recherches soient invisible)
Avec 1 fichier je pourrais m'en sortir avec Getobject mais avec plusieurs ?
Voici le début de la macro qui permet l'ouverture des fichiers
Voilà, en espérant que je n'aurais pas trop usé de votre précieux temps
@+ le forum
Voici un petit problème que je n'arrive pas à résoudre. J'ouvre plusieurs fichiers avec Getopenfilename. Je voudrais que les fichiers sur lesquels je vais travailler (importer des donneés, calculer et faire des recherches soient invisible)
Avec 1 fichier je pourrais m'en sortir avec Getobject mais avec plusieurs ?
Voici le début de la macro qui permet l'ouverture des fichiers
Code:
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
Voilà, en espérant que je n'aurais pas trop usé de votre précieux temps
@+ le forum
Dernière édition: