VB Script : Comment fermer un worbook excel DEJA ouvert ?
Bonjour
Voici le code incriminé. Le code fonctionne si j'attribue la variable wk, mais le wb se réouvre `? et une seule "session" se clôture et l'autre reste open...
Comment faire pour ne pas réouvrir le workbook tout en affectant bien son nom à la variable ?
Commentaires dans le code.
Merci d'avance
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
| '' Comment fermer un worbook excel DEJA ouvert ?
Dim oXL
Dim Wk
Set oXL = WScript.CreateObject("EXCEL.application")
oXL.DisplayAlerts = False
oXL.Visible = True
'le wrkbook suivant a déjà été ouvert par une instruction placée dans un vb script shedulé,
'le but est de clôturer via le prsésent Script schedulé x minutes plus tard
'set Wk = oXL.workbooks.open("H:\memoriaux\SIRE\BOTIT\Benchmark\NewBench\Process Request Bloomberg.xls")
?? set OXL.wk = ActiveWorkbook.FullName
?? 'Wk.save
?? 'wk.close
//Doit-on affecter la variable wk au worbook à fermer ? si oui comment faire pour qu'il ne le ré ouvre pas ?
oXL.Workbooks.Close 'traiter le save apres
oXL.DisplayAlerts = True
oxl.quit
Set oXL = Nothing |
