Exécution Macro VBA Excel via VBscript

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai un script VBS qui permet de lancer une macro VBA Excel nommée "Macopie" du fichier FICTEST.xlsm ci-joint.
Mon script VBS marhe très bien quand quand je saisi en dure le chemin de macro :
Code:

1 2 ObjExcel.Application.Run "'C:\Users\toto\FICTEST.xlsm'!Module1.Macopie"
Je souhaiterai cependant l'optimiser en rendant le chemin paramétrable, mais j'obtiens un message d'erreur:
Code:

1 2 Microsoft Excel ne peut accéder au fichier << "'C:\Users\toto\FICTEST.xlsm' >>.
Voici le contenu de mon script VBS :
Code:

1 2 3 4 5 6 7 Dim ObjExcel Path = WScript.Arguments.Item(0) ObjExcel = CreateObject("Excel.Application") ObjExcel.Application.Run chr(34) & "'" & Cstr(Path) & "FICTEST.xlsm'!Module1.Macopie" & chr(34) Set ObjExcel = Nothing WScript.Quit
Pour lancer mon VBS je saisi la ligne de commande ci-dessous sur mon terminal :

cscript.exe Monvbs.vbs C:\Users\toto\

Auriez-vous des idées à me proposer ?

Par avance merci.

05/03/2025, 19h30
umfred

euh, ça sert à quoi tes chr(14) dans le nom du fichier passé à run ????
05/03/2025, 22h19
kedmard

Hello umfred,

Merci d'avoir pris du temps pour mon problème.
Les ch(34) permettent de mettre en griffes une chaine de caractères. Par exemple ch(34) "" & "Merci" & ch(34) renverra ""Merci
06/03/2025, 13h31
umfred

Si tu veux afficher les guillemets, double les dans ta chaine
"voile un ""mot"" entre guillemet"
pour moi c'est ce qui gène dans ton code (tu les as pas utilisé dans ton 1er code qui fonctionne)

VBA Excel

Bonjour,

Je ne connais que VBA, alors voilà ce que j'ai pu faire avec une macro contenue dans le module d'un classeur situé dans le même dossier que FICTEST.xlsm :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub macro1()
    Dim ObjExcel As Object
    Dim ObjWkb As Object, path As String
 
    path = ThisWorkbook.path & "\" 'WScript.Arguments.Item(0)
 
    Set ObjExcel = CreateObject("Excel.Application")
    Set ObjWkb = ObjExcel.Workbooks.Open(CStr(path) & "FICTEST.xlsm")
 
    ObjExcel.Application.Run "'FICTEST.xlsm'!Macopie"
 
    'Objwkb.Close
    Set ObjWkb = Nothing
 
    'ObjExcel.Quit
    Set ObjExcel = Nothing
 
    'WScript.Quit
End Sub

Si ça peut aider ..

07/03/2025, 19h22
umfred
Pour continuer dans le sens que j'ai indiqué et confirmé par User; j'ai retrouvé une macro qui fait appel à la macro d'un autre classeur dans mes fichiers, et je ne rajoute pas de guillemets supplémentaires autour (juste les guillemets simples)
Code:

1 2 3 path = "c:\chemin\vers\fichier\excel.xlsm" application.run "'" & path & "'!" & NomMacro

En complément

Bonjour,

En effet, on peut aussi passer le chemin complet ;)

En complément, j'ai vu que vous aviez mis une commande pour fermer l'application Excel à la fin de votre macro :
Code:

1 2 3 4 5 6 7 Sub Macopie() '... ThisWorkbook.Save ThisWorkbook.Saved = True Application.Quit End Sub
Je me demande si c'est le meilleur moyen pour fermer proprement le classeur. Perso je désactiverais cette commande et je fermerais le classeur à la fin de la procédure appelante.

Un exemple en VBA :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Sub macro1() Dim ObjExcel Dim ObjWkb, path path = ThisWorkbook.path & "\" 'WScript.Arguments.Item(0) Set ObjExcel = CreateObject("Excel.Application") Set ObjWkb = ObjExcel.Workbooks.Open(path & "FICTEST.xlsm") ObjExcel.Application.Run "'FICTEST.xlsm'!Macopie" ObjWkb.Close Set ObjWkb = Nothing ObjExcel.Quit Set ObjExcel = Nothing End Sub

10/03/2025, 19h12
umfred

Je plussoie la remarque.
L'appelant ouvrant une session d'Excel doit la fermer.

La macro pourrait très bien être lancée depuis le fichier excel dans laquelle elle se trouve, fermer excel n'est pas forcément nécessaire. (tout dépend du besoin)
10/03/2025, 22h41
kedmard

Bonjour umfred & User,

Merci pour vos idées et désolé pour mon retour plus que tardif, j'essaie d'adapter vos idées et
vous reviens au plus tôt.

Bien à vous.
11/03/2025, 12h31
User

Citation:

Envoyé par umfred

...
La macro pourrait très bien être lancée depuis le fichier excel dans laquelle elle se trouve, fermer excel n'est pas forcément nécessaire. (tout dépend du besoin)

Je suis assez d'accord, si les données mises à jour dans le classeur ne sont pas accessibles autrement que par son ouverture, à la limite on pourrait mettre la macro sur ouverture, ou l'exécuter depuis le classeur. Mais tout dépend bien sûr du besoin comme vous dites..

Hello umfred & User,

J'ai tenu compte de vos retours et ça marche très bien, voici mon nouveau script vbs (à noter
qu'avec la ligne en commentaire ça fonctionne aussi):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim ObjExcel
Dim ObjWkb
 
Path = WScript.Arguments.Item(0)
Set ObjExcel = CreateObject("Excel.Application")
'ObjExcel.Application.Run "'" & Cstr(Path) & "FICTEST.xlsm'!Module1.Macopie"
 
Set ObjWkb = ObjExcel.Workbooks.Open(path & "FICTEST.xlsm")
ObjExcel.Application.Run "'FICTEST.xlsm'!Macopie"
 
ObjWkb.Close
Set ObjWkb = Nothing
 
ObjExcel.Quit
Set ObjExcel = Nothing
WScript.Quit

Et ma macro VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub Macopie()
Dim Fsource, Fdesti As Excel.Worksheet
Dim PLAGEACOPIER As Range
 
 
Set Fsource = ThisWorkbook.Worksheets("SOURCE")
Set Fdesti = ThisWorkbook.Worksheets("DESTI")
 
Set PLAGEACOPIER = Fsource.Range(Fsource.Cells(2, 2), Fsource.Cells(4, 2))
PLAGEACOPIER.Copy
Fdesti.Cells(2, 2).PasteSpecial Paste:=xlPasteValues
 
ThisWorkbook.Saved = True
End Sub

Grand merci à vous deux.

Salutations,