macro et nom fichier

[Dan31]

Bonjour, dans une macro lorsque l'on demande exécution d'une autre macro Application.Run "Nom du fichier.xls! Macro1" si l'on change le nom du fichier : blocage donc pouvons nous faire en sorte que cela marche quelquesoit le nom du fichier ? thisworkbook par exemple merci

 

[ClementMaillioux]

Re : macro et nom fichier

Bonjour à tous,

Je parcourais le forum et j'ai vu votre question.
Je ne sais pas si j'ai bien compris votre doléance moi aussi, mais vous devriez essayer d'utiliser la ligne de code suivante :

Application.Run (ThisWorkbook.Name & "!Macro1")

Cela permet d'activer la Macro1 du classeur actif.
Prenez tout de même garde si vous exécutez ce code avec plusieurs classeurs ouverts de ne pas vous tromper!

Cordialement.

 

[job75]

Re : macro et nom fichier

Bonjour tout le monde,

Quand Macro1 se trouve dans le fichier de ThisWorkbook,

Application.Run ThisWorkbook.Name & "!Macro1"

peut être simplement remplacé, comme l'indique Jean-Marcel, par :

Macro1

Si Macro1 est dans un autre classeur, eh bien il faut s'arranger pour obtenir le nom de ce classeur, par exemple s'il s'agit du classeur actif :

Dim nomfichier As String
'-----------
nomfichier = [COLOR="Red"]ActiveWorkbook[/COLOR].Name
'------------
Application.Run nomfichier & "!Macro1"

A+

 

[ClementMaillioux]

Re : macro et nom fichier

Une nouvelle fois, bonjour.

Ce n'est peut-être pas la peine d'attribuer le nom du classeur à une variable supplémentaire avant de la réutiliser dans le sens où le nom est déjà stocké en propriété du classeur actif :

Application.Run (ActiveWorkbook.Name & "!Macro1")

Appeler l'application pour l'ActiveWorkbook fonctionne aussi en demandant son nom avec ".Name".


Edit: J'avais mal lu l'intervention pertinente de Job75, récupérer le nom du classeur dans une variable est intéressant pour le cas où il faille gérer plusieurs classeurs. Une boucle pourrait permettre de choisir le classeur que l'on désire utiliser.

 

[job75]

Re : macro et nom fichier

Re ClementMaillioux,

Oui, il arive souvent dans une macro que l'on passe d'un classeur à un autre, alors la solution est de mémoriser le nom du classeur que l'on veut traiter.

A+