Discussion :

[maximmus]

Bonjour,

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

voici les codes que j'ai codés :

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
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

Handle de fenêtre non valide

sur la ligne

Code :

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

1
2
 
oExec.Terminate

Quelq'un sait pourquoi?

[ericlm128]

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 vbs :

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
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

[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) ?
alors que la méthode Popup sans paramètre de durée attendra tranquillement ton oExec.Terminate
et tout se passera bien

Code :

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

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