Handle de fenêtre non valide

**maximmus** · 09/06/2016, 11h36

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