Discussion :

[JeanDan]

Bonjour,

Voilà J'ai dans mon module 2 du classeur Excel "monclasseur" une macro qui fait appel à des functions programmé et à des fonction dans la biblio. Donc En gros dans mon module 2 j'ai des function et une procédure où je lance mes fonctions. Cette procédure s'appelle "ma_procedure_e" ......
Je voudrai piloter (lancer automatiquement) cette macro VBA à partir d'un code VBS.
Voici le code VBS pour lancer la procédure 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
Function main()
 Dim Xl
 Dim Wb
 Dim NomMacro
 Set Xl = CreateObject("Excel.application")
 Xl.Visible = true
 Set Wb = Xl.Workbooks.Open("C:\Script\monclasseur.xls")
 
 Xl.run WB.Name & "!Module2.ma_procedure_e" 
 
xl.quit
set wb = Nothing
set Xl = Nothing 
End Function

Lorsque je compile la produre directement sur VBA l'éxécution se déroulement correctement mais à partir du fichier VBS je n'ai aucun rapport d'erreur mais rien ne se passe ...

Voilà Merci
Si vous voulez voir le code VBA je peux vous le mettre si vous le désirez .

A+

[ced600]

Si ton script se limite à se code, alors rajoute la ligne suivante en début de script :

Code :

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

main()

Une fonction en vbs doit être appellé.
Il n'y a pas de fonction main en VBS.
A la rigueur on peut considérer que le main est le code que tu mets dans le fichier sans définir de fonction ou de procédure pour le délimiter.

VBScript est un langage de script. Il n'est donc pas compilé mais interprété ligne par ligne par un interpréteur, ici cscript ou wscript en fonction de la configuration de ton OS.

[JeanDan]

Yep Slt ced600.

Oui je ne l'ai peut-être pas di mais dans mon script VBS j'ai bien pour premiere ligne "main()" pour appeler la fct.

CE qui est d'autant plus bizarre c'est que ce procéder fonctionne popur le Module 1 où il y a qu'une procédure mais pas pour le Module 2 ou il y a la procédure qui appelle des fct.
Peut-être voudrais tu voir le code VBA pour comprendre pq cela ne fonctionne pas mais se compile ?

A+

[ced600]

Si tes macros marchent sous excel, elles doivent fonctionner si un script VB les appelle.

Mets des wscript.echo ou des msgbox avant et après le X1.Run et dans les macros.
Tests de nouveaux le programme et dis moi quelles sont les box qui apparaissent.

Profites en pour afficher le contenu de la variable WB.Name

Tu peux aussi montrer ton code VBA quelque fois que malgrès cela vienne de là.