Executer macro excel via VBS

**zoubli** · 15/12/2006, 19h42

Bonsoir,
Je programme un peu mais pas du tout en VB et dérivés. Je souhaite exécuter via un script VBS une macro qui se trouve dans un module d'un classeur Excel. Cette macro "main_fichier_DSI" prends 3 paramètres.
J'ai réussi a trouver ce code mais j'ai une erreur WSH a l'exécution : "ligne 9, caract 9, erreur fin d'instruction attendue".
J'aimerai avoir l'avis de connaisseur car je patine grave :-(
Et merci a celles

& ceux qui me fileront un tuyau.

Voici mon code :

main

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
19
20
21
22
23
 
Function main()
 appel_macro_NP()
End Function
 
 
Function appel_macro_NP()
 Dim Xl As Excel.Application
 Dim Wb As Excel.Workbook
 Dim NomMacro As String
 Dim FeuilleMEF As String
 Dim Arg1 As Integer
 Dim Arg2 As Integer
 
 Set Xl = CreateObject("Excel.application")
 Xl.Visible = True
 Set Wb = Xl.Workbooks.Open("Modèle de travail.xls")
 
 FeuilleMEF = "MEF Requètes DSI"
 Arg1 = 5
 Arg2 = 5
 Xl.run WB.Name &"!Module3.main_fichier_DSI" , &"FeuilleMEF", &Arg1, &Arg2
End Function

**AlainTech** · 17/12/2006, 04h16

En VBS, le typage se fait au moment de l'assignation, pas à la déclaration.
Autrement dit, il faut supprimer tous les As des Dim.

**zoubli** · 18/12/2006, 10h46

merci pour les conseils mais ayant enlevé les As de chaque déclaration j'ai maintenant une erreur que je ne pige pas.
Il n'arrive pas a faire la substitution de la variable FeuilleMEF dans l'exécution.

J'ai le message "Erreur de syntaxe" sur la ligne 23 (le Xl.run) caractère 48 (&FeuilleMEF après le &). Je ne comprends pas pourquoi ?
Je suis pourtant bien positionné dans le répertoire du .xls.

**zoubli** · 18/12/2006, 10h50

Le code modifié :

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
19
20
21
22
main
Function main()
 appel_macro_NP()
End Function
 
Function appel_macro_NP()
 Dim Xl
 Dim Wb
 Dim NomMacro
 Dim FeuilleMEF
 Dim Arg1
 Dim Arg2
 
 Set Xl = CreateObject("Excel.application")
 Xl.Visible = True
 Set Wb = Xl.Workbooks.Open("Modèle de travail.xls")
 
 FeuilleMEF = "MEF Requètes DSI"
 Arg1 = 5
 Arg2 = 5
 Xl.run WB.Name &"!Module3.main_fichier_DSI" , &FeuilleMEF, &Arg1, &Arg2
End Function

**SfJ5Rpw8** · 18/12/2006, 13h03

? c'est quoi tous ces & ...?

**zoubli** · 19/12/2006, 10h06

bonjour,

oui je n'ai pas mis la syntaxe a jour, la ligne corrigée est :

Xl.run WB.Name & "!Module3.main_fichier_DSI", Worksheet, Arg1, Arg2

Ca me lance le classeur Excel mais en peut exécute la macro car il ne la trouve pas. J'ai le message :
'Impossible de trouver la macro
Modèle de travail.xls!Module3.main_fichier_DSI'

Je comprends pas, la feuille MEF Requètes DSI contient une subroutine qui appelle la macro main_fichier_DSI enregistrée dans le module3.

Quelqu'un y compernds quelque chose ?

**SilkyRoad** · 19/12/2006, 12h03

bonjour

IL me semble que si le nom du classeur contient des espaces ou des caractères spéciaux, le nom doit être encadré par des quotes.

Code :

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

Application.Run "'Nom du Classeur.xls'!Module1.NomMacro"

michel

**zoubli** · 19/12/2006, 12h52

Merci mais si je mets cette syntaxe le classeur ne s'ouvre meme pas, il ne cherche meme pas a exécuter la macro :
Application.Run "'Modèle de travail.xls'!Module3.main_fichier_DSI", Worksheet, Arg1, Arg2

J'ai une erreur dont voici la copie de l'erreur : erreurVBS.jpg
Je sais que ma syntaxe est presque OK, elle ouvre le doc xls mais elle n'arrive pas a accéder a la macro pourtant dans le module3 :
Xl.run WB.Name & "!Module3.main_fichier_DSI", Worksheet, Arg1, Arg2

Il y a bien quelqu'un maitrisant VBS qui sait comment on lance une macro VBA je suppose ?

Please help me, it's been a long time that i seek the good way to do that !

**SilkyRoad** · 19/12/2006, 13h34

rebonjour

Merci mais si je mets cette syntaxe le classeur ne s'ouvre meme pas

Je ne vois pas le rapport entre Application.Run et l'ouverture préalable du classeur, meme si la syntaxe est erronée ...

peux tu preciser à quoi correspondent les arguments Worksheet, Arg1, Arg2

michel

**zoubli** · 19/12/2006, 14h20

Re bonjour !
les arguments sont les variables renseignées dans le code (post du 18/12 10h50).
Worksheet = la feuille excel concernée par la macro
Arg1 correspond a une dimension de tableau dynamiques que créé la macro et Arg2 a la colonne du boutons a cliquer sur la feuille. Ces valeurs sont des entiers.

Exemple pour les subroutines de la feuille 'MEF Requètes DSI' qui comprends 3 boutons en colonnes C (3), D (4) et E (5) :

Code :

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

1
2
3
Private Sub Clôture_Click()
main_fichier_DSI "MEF Requètes DSI", 5, 5
End Sub

Code :

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

1
2
3
Private Sub Quotidien_Click()
main_fichier_DSI "MEF Requètes DSI", 5, 4
End Sub

Code :

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

1
2
3
Private Sub STC_Click()
main_fichier_DSI "MEF Requètes DSI", 5, 3
End Sub

J'espère vous avoir donné assez de détails, nous sommes pas loin du but.

**AlainTech** · 19/12/2006, 17h43

Je croyais que c'était FeuilleMEF le nom de la variable contenant le nom de la feuille... et pas Worksheet.

**zoubli** · 19/12/2006, 18h10

Oui enfin, alpha ou béta...
J'ai changé le nom de la variable par le nom anglais d'une feuille d'un xls.
Cette variable se substitura a d'autres noms de feuilles car le XLS a 3 feuilles appelant la meme macro. Donc j'ai voulu éviter de me focaliser sur un nom de feuille en particulier.

Worksheet sera soit : feuilleA, feuilleB, feuilleC,...

La ligne construite pour appeller la macro comprend a coup sur une erreur de syntaxe co... mais alors j'avance pas (et le net est pauvre).

Tout le monde pourra, une fois le problème résolu lancer ses macro via un simple script VBS. Merci encore de suivre mon problème.

**AlainTech** · 19/12/2006, 23h12

Eh bien, je te le déconseille fortement car Worksheet est un nom utilisé par VBA Excel pour désigner un objet Feuille de calcul...

**zoubli** · 20/12/2006, 10h08

Bonjour,
ok merci je remets donc un nom de variable moins sensible mais je suis toujours confronté au même problème. Je ne sais plus quoi faire...

**SfJ5Rpw8** · 20/12/2006, 11h15

supprime le "typage dans ta déclaration de procédure excel :

Code :

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

1
2
 
Public Sub main_fichier_DSI(stFeuille, Arg1, Arg2)

puis dans le VBS.. rajoute des ' ( grr... cette habitude de mettre des espaces et des accents dans les noms de fichiers...)

Code :

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

1
2
 
Xl.run "'" & WB.Name & "'!Module3.main_fichier_DSI" ,FeuilleMEF ,arg1,arg2

**zoubli** · 20/12/2006, 11h41

Bonjour bbil,
Merci pour tes conseils que j'ai suivi et la macro déja s'exécute mais bloque sur une erreur.
J'ai mis la copie d'écran pour info. Je crosi que par défaut les arguments sont passés par référence et ça ne plait pas a la macro. J'ai fait précéder l'argument Nom_Feuille par ByVal mais toujours une erreur a la compilation VB.

Au fait pourquoi faut-il enlever le typage des arguments dans la macro, car exécutée seule dans excel tout marche très bien. Mauvais ménage avec VBS ? ;-)

**SfJ5Rpw8** · 20/12/2006, 11h54

ton probléme c'est dans la deuxiéme fonction ...non ..? essai en mettant nom_feuille entre parenthése... ou passe par une variable intermédiaire...

**zoubli** · 20/12/2006, 13h00

Merci de ton aide, j'ai fait un peu autrement mais le résultat est la !
En fait tu m'as donné la bonne syntaxe VBS pour le run de la macro.

Entre VBS et VBA le passage des arguments par valeur et référence ne faisait pas bon ménage. J'ai gardé le typage et indiqué dans les fonctions VBA appelées ByVal devant chaque argument et ça fonctionne nickel.

J'ai pas encore tout pigé de la syntaxe de ta ligne mais je débute, bonne journée.

Executer macro excel via VBS

VBScript

Discussions similaires

Partager

Partager