Discussion :

[neiluj26]

Bonjour le forum,

J'ai cette ligne de code que j'aimerais personnaliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WsMod.Shapes("Button 2").OnAction = "Macro1"

J'aimerais écrire une ligne de ce type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WsMod.Shapes("Button 2").OnAction = ClasseurX.Module1.Macro1

mais je ne trouve pas la bonne syntaxe. L'aide Excel n'est pas très explicite sur ce cas.

Merci d'avance.

[aalex_38]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
WsMod.Shapes("Button 2").OnAction = "ClasseurX.xls!Macro1"
'Nb : la syntaxe ressemble a celle de application.run

[neiluj26]

Bonjour et merci...

J'ai une question qui va sembler bête, mais si le nom de mon classeur est défini par une variable?

[aalex_38]

Re,

Tu renseignes ta variable dans un string et ensuite tu fais (a tester) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WsMod.Shapes("Button 2").OnAction = Mavariable ' par exemple mavariable contient "ClasseurX.xls!Macro1"

[neiluj26]

J'ai tenté un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MacroAExecuter = NomDeSauvegarde & "!Sauvegarde"
WsMod.Shapes("Button 2").OnAction = MacroAExecuter

Avec une variable NomDeSauvegarde définie une fois en tant que nom du classeur, l'autre en tant que filename du classeur (je ne savais pas lequel choisir). Et les deux fois, j'ai eu droit à un beau "impossible de trouver la macro", qui est pourtant bien là.

[neiluj26]

Oups, ça va mieux en faisant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MacroAExecuter = "'" & NomDeSauvegarde & "'!Sauvegarde"

Piégeux ce VBA. Merci!