Handle de fenêtre non valide

Version imprimable

Bonjour,

je suis en train de programmer un petit script de VBS.

voici les codes que j'ai codés :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Set oSh=CreateObject("WScript.Shell")
If WScript.Arguments.Count = 1 Then
If WScript.Arguments(0) = "popup" Then
While True
oSh.Popup "Processing ... Please wait !"
Wend
End If
End If
 
dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dim CurrentDirectory
CurrentDirectory = fso.GetAbsolutePathName(".")
dim Directory
Directory = CurrentDirectory & "\Tool.xlsm"
 
Set oExec=oSh.Exec ("WScript " & WScript.ScriptFullName & " popup")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("Tool.xlsm")
objWorkbook.SaveAs Directory
Set objSheet = objWorkbook.Worksheets("tool_paper")
 
objSheet.Range("size").Value = "large"
objSheet.Range("name").Value = "mike"
 
oExec.Terminate
Set objExcel = Nothing
Set objSheet = Nothing
Set CurrentDirectory = Nothing
Set Directory = Nothing
'fso.DeleteFile WScript.ScriptFullName
Set oShell=Nothing
Set oExec=Nothing
MsgBox "Tool is ready!"
WScript.Quit

En général, mon but c'est de créer une fenêtre popup pour avertir aux l'utilisateur que le VBScript est en train de rentrer des données dans le fichier Excel.
mon problème, c'est que VBScript me sorte une erreur

Citation:

Handle de fenêtre non valide

sur la ligne

Code:

1
2
 
oExec.Terminate

Quelq'un sait pourquoi?

Bonjour,

Terminate semble n'envoyer qu'un Close au process, ce qui doit avoir pour effet de fermer la fenêtre courant (on la voit d’ailleurs se fermer et se ré-ouvrir) et attendre la fin du script qui ne se fait jamais à cause de la boucle.
https://msdn.microsoft.com/en-us/lib...=vs.84%29.aspx

On pourrait mettre un 'on error resume next' avant le 'oExec.Terminate' mais ça clignoterais toujours.
Bref tant qu'a faire sale autant le faire pour de bon (on va le Kill), je te propose cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Set oSh=CreateObject("WScript.Shell") If WScript.Arguments.Count = 1 Then If WScript.Arguments(0) = "popup" Then While (True) oSh.Popup "Processing ... Please wait !" Wend WScript.quit End If End If dim fso: set fso = CreateObject("Scripting.FileSystemObject") dim CurrentDirectory CurrentDirectory = fso.GetAbsolutePathName(".") dim Directory Directory = CurrentDirectory & "\Tool.xlsm" id=oSh.Exec("WScript.exe " & WScript.ScriptFullName & " popup").ProcessID WScript.sleep 2000 ' Blablabla ton code ' ... Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where ProcessID = " & id ) For Each objProcess in colProcess objProcess.Terminate() Next

10/06/2016, 15h51
omen999
bonjour,

faute de support du multi-thread, l'utilisation d'un dialogue modeless n'est pas toujours simple

pourquoi cette boucle infernale (ligne 5-7) ? :calim2:
alors que la méthode Popup sans paramètre de durée attendra tranquillement ton oExec.Terminate
et tout se passera bien
Code:

1 2 3 4 5 6 If WScript.Arguments(0) = "popup" Then ' A SUPPRIMER While True oSh.Popup "Processing ... Please wait !" WScript.Quit ' A AJOUTER ' A SUPPRIMER Wend End If