Discussion :

[kedmard]

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 :

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

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 :

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

1
2
 
Microsoft Excel ne peut accéder au fichier << "'C:\Users\toto\FICTEST.xlsm' >>.

Voici le contenu de mon script VBS :

Code :

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

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.

[umfred]

euh, ça sert à quoi tes chr(14) dans le nom du fichier passé à run ????

[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

[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)

[User]

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 VBA :

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

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 ..

[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 :

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

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