Discussion :

[chris_wafer]

Bonjour,

Je suis en train d'automatiser des lancements de Macro Excel sous Jenkins, donc je lance EXCEL en ligne de commande.
Seulement, il m'affiche quand même une IHM et ça bloque JENKINS.
Quelqu'un sait le lancer en totalement silencieux afin que JENKINS soit pas bloquer?

[Invité]

Bonjour,

avec JENKINS tu lance Ficher VBSCRIPT en ligne de commande!

Code Fichier.vbs :

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

1
2
3
4
5
6
7
8
9
10
Dim XLS
Dim Wb
set XLS = creatobject("Excel.application")
XLS.visible = false
set wb = XLS.Workbooks.Open("C:\XLS.XLS")
wb.Application.Run "MyMacro"
wb.Close false
XLS.Quit
set wb = Nothing
set XLS = Nothing

Seulement, il m'affiche quand même une IHM et ça bloque JENKINS.

tu as un IHM qui se lance sur la méthode open?

[chris_wafer]

Et si on veut passer des paramètres?

[Invité]

c'est possible mais de mémoire...
je regarde dans mes archives, sans conviction je te l'avoue, mais sur Google sans problème!

Edit:

Code :

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

1
2
3
4
5
Dim oArgs
Set oArgs=WScript.Arguments ' tableau d'arguments
WScript.Echo oArgs.Count ' nombre d'argument transmis
WScript.Echo oArgs(0) ' premier argument
WScript.Echo oArgs(1) ' second argument

[chris_wafer]

En fait, je lance excel comme ça en ligne de commande :
EXCEL /cmd/m<MACRO1>/m<MACRO2> /r "FICHIER.xlsm" /e

Et je voudrais faire la même chose avec vbs, car j'analyse la ligne de la commande dans la fonction Workbook_Open

Une idée?

[Invité]

devrait ressembler à qq chose comme ça, à la syntaxe excat près

Code Ligne de commande :

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

Fichier.vbs 'MACRO1' MACRO2'

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 oArgs
Set oArgs=WScript.Arguments ' tableau d'arguments
'WScript.Echo oArgs.Count ' nombre d'argument transmis
'WScript.Echo oArgs(0) ' premier argument
'WScript.Echo oArgs(1) ' second argument
Dim XLS
Dim Wb
set XLS = creatobject("Excel.application")
XLS.visible = false
set wb = XLS.Workbooks.Open("C:\XLS.XLS")
wb.Application.Run oArgs(0)
wb.Application.Run oArgs(1)
wb.Close false
XLS.Quit
set wb = Nothing
set XLS = Nothing