Lancer une macro d'un autre classeur

Version imprimable

Bonjour,

J'aimerais exécuter une macro qui est présente dans un classeur de macro complémentaire dans un autre fichier Excel grâce à un fichier VBS (à des fins d'automatisation) , j'ai déjà, comme on me l'a suggéré, essayer d'écrire ma macro directement dans mon fichier VBS mais la requête prends 1H contre 5 minutes en l'exécutant directement sur Excel :?

Voici mon code VBS :
Code:

1 2 3 4 5 6 7 8 9 Dim Xl dim wk Set Xl = WScript.CreateObject("EXCEL.application") XL.DisplayAlerts = False Xl.Visible = True set Wk = XL.workbooks.open("C:\Users\wbakh\Documents\Test\test.xlsx") Xl.Run "test_macro.xlsm!test" xl.save xl.close
Ma macro s'exécute bien mais ne s'enregistre pas ...
Il m'affiche "l'opération 'save' n'a pas pu se faire :( ".

J'ai du faire une erreur, mais je ne vois pas quoi...

Merci par avance !
W.

02/07/2021, 09h13
wassrcm

1 pièce(s) jointe(s)

Je vous montre l'erreur que j'ai :

Pièce jointe 600970
02/07/2021, 09h42
laurent_ott

Bonjour.
Dans ton code, ligne 3, "xl" représente l'application Excel.
Or tu ne peux pas sauvegarder Excel, mais un fichier Excel. Ce n'est pas la même chose.
Dit autrement, Save doit indiquer un fichier (un classeur) à sauvegarder et pas Excel.
Cordialement.
02/07/2021, 09h58
wassrcm

Citation:

Envoyé par laurent_ott

Dit autrement, Save doit indiquer un fichier (un classeur) à sauvegarder et pas Excel.
Cordialement.

J'ai réglé le problème en remplaçant xl.save par wk.save, merci ! Erreur bête de ma part :?

J'ai un dernier petit problème, mon fichier "test_macro" qui contient ma macro reste ouverte après l'exécution de mon vbs ... y a-t-il un moyen de le fermer automatiquement ?
Je ne comprends pas pourquoi ça fait cela étant donné qu'à aucun moment j'ouvre le fichier test_macro, j'exécute simplement la macro qui y est...
02/07/2021, 10h12
laurent_ott

Pour exécuter ta macro Excel est bien obligé de lire ton fichier, donc d'une certaine manière de l'ouvrir. Tu pourrais tout simplement ajouter une instruction à la fin de ta macro pour dire de refermer le fichier.
02/07/2021, 14h03
wassrcm

1 pièce(s) jointe(s)

C'est ce que je fais mais il reste une fenêtre Excel vide ouverte, décidément c'est bizzare :

Pièce jointe 600996
02/07/2021, 14h25
laurent_ott

Je pense que tu fermes le classeur qui contient la macro, mais reste encore à fermer l'application Excel, dans la session ouverte. Comme dans ta ligne 9, qui ferme la session ouverte en ligne 3.

Merci beaucoup ça fonctionne !

Pour ceux qui auraient besoin voici mon code vbscript :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Xl dim wk Set Xl = WScript.CreateObject("EXCEL.application") XL.DisplayAlerts = False Xl.Visible = True set Wk = XL.workbooks.open("C:\Users\wbakhalq\Desktop\Test\Nouveau dossier\km_test.xls") Xl.Run "test_macro.xlsm!TriKM" xl.quit set wk = nothing set xl = nothing
Et ne pas oublier de fermer votre classeur contenant votre macro si celle-ci n'est pas dans le classeur dans lequel vous travaillez :

Code:

ActiveWorkbook.Close