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