XL 2019 Déclencher une macro d'un classeur fermé

[pat66]

Bonjour Le forum,

Dans le même dossier, j'ai 2 classeurs test1.xlsm et test2.xlsm
Mon problème :
Comment peut on activer une macro située dans un module standard de test2 en ouvrant test1

j'ai bien essayé dans test1 avec :
Private Sub Workbook_Open()
Application.Run ThisWorkbook.Path & "\test2.xlsm'mamacro"
end sub

mais cela donne "erreur d'execution 1004", je précise que le classeur, les feuilles et le vba sont protégés

pourriez vous m'aidez svp

merci et belle journée à toutes et à tous

 

[Dranreb]

Bonjour.
Il faut un point d'exclamation entre le nom du classeur et le nom de la macro, pas une apostrophe.

 

[pat66]

désolé
cela affiche toujours l'erreur d'exécution 1004 même avec
Application.Run ThisWorkbook.Path & "\test2.xlsm!mamacro"

 

[Dranreb]

Il y a aussi une apostrophe inutile au début de la partie fixe.
Ou alors c'est peut être tout le chemin et nom de fichier, voir tout, qui doit à la rigueur être encadré d'apostrophes, mais il faut en tout cas un point d'exclamation devant le nom de la macro.
Le plus sûr serait de prévoir un bouton de formulaire auquel cette macro serait affectée et d'employer exactement la valeur de sa propriété OnAction quand le classeur est fermé.

 

[pat66]

si j'enlève les guillemets juste avant c'est pire
j'ai testé avec Workbooks.Open Filename:=ThisWorkbook.Path & "\test2.xlsm",le classeur s'ouvre bien, mais j'ai besoin d'activer une macro qui supprime l'ancien classeur à l'ouverture du test1

 

[danielco]

Bonjour,

Je pensais que ce n'était pas permis.

Daniel

 

[Dranreb]

Prenez la propriété OnAction d'un Shape auquel vous aurez affecté la macro, comme ça vous ne pourrez pas vous tromper dans ce qu'il faut écrire pour le Application.Run
Fermer d'abord le classeur qui contient la macro car je crois que son chemin en est enlevé quand il est ouvert. À moins d'en écrire deux versions, selon qu'il est ouvert ou non.

 

[mbmb]

Tu peux aussi affecter une macro à un objet (bouton par exemple) en affectant ainsi la macro : 'C:\chemin\nomdufichier.xlsm'!nomdelamacro

 

[danielco]

Tu peux aussi affecter une macro à un objet (bouton par exemple) en affectant ainsi la macro : 'C:\chemin\nomdufichier.xlsm'!nomdelamacro

Bonjour,

Sauf erreur, ça ouvre le classeur avant l'exécution de la macro ?

Daniel

 

[mbmb]

Bonjour,

Sauf erreur, ça ouvre le classeur avant l'exécution de la macro ?

Daniel

Il s'ouvre, exécute la macro, et se referme

 

[danielco]

et se referme

Pas dans mon environnement, en tout cas (W10, excel 2016 32 bits)

Daniel

 

[mbmb]

en effet ... à la fin de la macro du 2ème classeur j'avais ajouté : ThisWorkbook.Close

 

[danielco]

Pour résumer, il n'est pas possible d'exécuter la macro, le classeur étant fermé. Il faut l'ouvrir, exécuter la macro et refermer le classeur.

Daniel

 

[mbmb]

Pour résumer, il n'est pas possible d'exécuter la macro, le classeur étant fermé. Il faut l'ouvrir, exécuter la macro et refermer le classeur.

Daniel

Je ne vois pas comment la macro pourrait être ouverte, sans que le fichier soit lui même ouvert ... et que la macro soit alors interprétée par Excel ... En tous cas ... c'est la manière de faire que j'utilise ... il y a peut-être mieux ... mais cela fonctionne et est transparent pour l'utilisateur ... (l'appel tel qu'indiqué ouvre le classeur et exécute la macro + la commande de fermeture en fin de macro)
(dans mon cas, chacun des 100 utilisateurs a son propre fichier excel avec ses propres données ... et quand ils cliquent sur le bouton, ils appellent tous la même macro ... si je dois faire une modif sur la macro, je ne la fait que sur 1 fichier ... et pas sur les 100. S'ils sont susceptibles de cliquer en même temps, il faut activer le partage de fichier sur le fichier de la macro)

 

[pat66]

toujours pas = erreur 1004

pensez vous que c'est correctement écris notamment ThisWorkbook.Path &
Application.Run ThisWorkbook.Path & "\test2.xlsm!mamacro"

cette macro fonctionne bien, y pourrais je ajouter l'instruction pour activer la macro ?
Workbooks.Open Filename:=ThisWorkbook.Path & "\test2.xlsm"

merci