OVH Cloud OVH Cloud

Activate ne fontionne pas avec le chemin complet

1 réponse
Avatar
rederon
Bonjour,

J'ai un soucis avec la fonction activate dans mes macros Excel:
**************************************************************
'J'ouvre un fichier:
fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If fileToOpen = False Then
Exit Sub 'Si on clique sur le bouton "Cancel"
Else
nomFichier = "" & fileToOpen
End If
Workbooks("" & nomFichier).Activate
**************************************************************

J'ai l'impression que cette méthode ne fonctionne pas car elle
n'accepte pas le nom complet du fichier avec son chemin.

Du coup, je me demande si il y a un moyen de contournement simple, ou
si il faut que je me créé une fonction qui me récupère le chemin et le
nom du fichier (par exemple en retrouvant l'endroit où est positionné
le dernier back-slash "\" dans le nom complet).

Merci,

Stéphane

1 réponse

Avatar
isabelle
bonjour Stéphane,

il faut ouvrir le fichier,

Workbooks.Open Filename:=nomFichier

isabelle


Bonjour,

J'ai un soucis avec la fonction activate dans mes macros Excel:
**************************************************************
'J'ouvre un fichier:
fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If fileToOpen = False Then
Exit Sub 'Si on clique sur le bouton "Cancel"
Else
nomFichier = "" & fileToOpen
End If
Workbooks("" & nomFichier).Activate
**************************************************************

J'ai l'impression que cette méthode ne fonctionne pas car elle
n'accepte pas le nom complet du fichier avec son chemin.

Du coup, je me demande si il y a un moyen de contournement simple, ou
si il faut que je me créé une fonction qui me récupère le chemin et le
nom du fichier (par exemple en retrouvant l'endroit où est positionné
le dernier back-slash "" dans le nom complet).

Merci,

Stéphane