Discussion :

[zoubli]

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]

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]

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]

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]

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

[zoubli]

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 ?