Macro permettant de lancer une autre macro

[bmatoshi]

Bonjour à tous

J'aimerai créer un fichier excel dans lequel il y a une macro qui va ouvrir d'autres fichiers excel et lancer une macro dans ces fichiers sous la forme d'un bouton.

J'ai essayé plusieurs fois avec la formule application.run mais le fichier s'ouvre sans lancer la macro.

Voici le code que j'utilise :

Private Sub CommandButton1_Click()

Application.Run ("'Q:\IDX\TRKERR\CSSW_WD_I.xls'!mult_add_row")

End Sub


Est ce que quelqu'un peut me venir en aide ?

Merci beaucoup !

 

[Dranreb]

Re : Macro permettant de lancer une autre macro

Bonjour.

Peut être auriez vous intérêt dans ce cas à utiliser plutôt des boutons de formulaires et affecter à leur propriétés OnAction les macros des autres classeurs. Si vous n'y tenez vraiment pas, faites le quand même pour un, pendant que vous enregistrez une nouvelle macro, cliquez sur le bouton, après quoi pompez le Run engendré dans la macro.

 

[bmatoshi]

Re : Macro permettant de lancer une autre macro

Merci pour votre aide

Finalement j'ai quand même réussi à l'aide des macros.
Pour ce faire j'ai créé 2 étapes

Je mets ci-dessous la réponse :

Private Sub CommandButton1_Click()

Application.Workbooks.Open "Q:\IDX\TRKERR\CSSW_WD_I.xls"
Application.Run "CSSW_WD_I.xls!mult_add_row"

Close

 

[Dranreb]

Re : Macro permettant de lancer une autre macro

Alors voir si ce qui aurait marché n'aurait pas été Application.Run "'Q:\IDX\TRKERR\[CSSW_WD_I.xls]'!mult_add_row"
Mais le plus sûr pour ne pas se tromper c'est de repomper la propriété OnAction d'un Shape auquel est affecté une macro d'un classeur fermé.