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

[User]

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

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

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 :

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

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

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

[User]

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

[kedmard]

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 :

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

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