Discussion :

[Mael_Jr]

Bonjour à tous,

J'exécute un script .vbs avec le planificateur de tâches Windows.

Le code s'exécute mais la tâche reste "en cours" (comme si le script était infini).

Comment puis-je résoudre ce problème ?

Merci pour votre aide.

Voici le script exécuté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts=FALSE
set objWorkbook = objExcel.Workbooks.open("\\PARDMP23HD\c17661$\workarea\M\test.xlsm",,0)
objExcel.visible = False
objExcel.Run "je_teste"
objWorkbook.Save
objWorkbook.Close False
objExcel.DisplayAlerts = TRUE
set objWorkbook = nothing
objExcel.Quit
Wscript.Quit
set objExcel = nothing
Return 0

[ProgElecT]

Salut Mael_Jr, bienvenue sur DVP

Tu places

Code :

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

1
2
set objExcel = nothing
Return 0

après Wscript.Quit tes 2 dernière lignes ne sont pas exécutées, d’ailleurs tu devrais retrouver l'objExcel de le Gestionnaire de tâche colonne Applications ou/et Processus en cours.

Code :

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

1
2
3
msgbox "A que coucou, .... 1 fois"
WScript.Quit
msgbox "A que coucou, ..... 2ém fois"

A que coucou, ..... 2ém fois, ne sera jamais vue

[Mael_Jr]

Bonjour ProgElecT,

Lorsque j'exécute le script suivant, la ligne return 0 renvoie une erreur :

merci pour ton aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts=FALSE
set objWorkbook = objExcel.Workbooks.open("\\PARDMP23HD\c17661$\workarea\M\test.xlsm",,0)
objExcel.visible = False
objExcel.Run "je_teste"
objWorkbook.Save
objWorkbook.Close False
objExcel.DisplayAlerts = TRUE
set objWorkbook = nothing
objExcel.Quit
set objExcel = nothing
Return 0
Wscript.Quit

[ProgElecT]

Re

A quoi te sert ce Return 0? puisque tu quittes le VBscript.

[Mael_Jr]

En fait, return 0 ne sert à rien (ça ne fonctionne pas). Mais le planificateur de tâches garde toujours le statut "en cours" (sans cette ligne).

[ProgElecT]

Tu dois avoir un bug dans l'application Excel.

Dans un premier temps, pour voire se qui se passe, rend visible l'application

Code :

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

1
2
3
4
set objExcel = CreateObject("Excel.Application")
objExcel.visible = True
objExcel.DisplayAlerts=FALSE
' ...... la suite du code