Run Macro dans un new Thread ?

grogoin · 1 Juin 2012

Bonjour voici le script vbs que j'utilise pour lancer mon programme :

Code:

Dim XL
Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open  "C:\toto.xls"
XL.Run "'C:\toto.xls'!Auto_Ouvrir"
Set XL = Nothing

Mais mon problème est que le script ne reprend pas la main après le run.
Enfin il attend que l’exécution de la macro soit fini.
Ma macro peut être amener a kill le process lancé.
Si le process est kill alors quand mon VBS "reprend la main" il plante a la ligne du run.

Donc j'aimerai bien faire mon Run dans un nouveau thread.
Comment faire ?

Je ne sais pas si c'est très facile a comprendre...
Bonne journée

PMO2 · 1 Juin 2012

Re : Run Macro dans un new Thread ?

Bonjour,

En retardant le lancement de la macro avec un OnTime

Code:

Dim XL 
Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open "c:\toto.xls" 'à adapter
XL.Application.OnTime Now + TimeValue("00:00:04"), "'C:\toto.xls'!Auto_Ouvrir"
Set XL = Nothing

'--- Ouvre la calculatrice (pour illustrer la reprise en main du script) ---
Dim myShell
Set myShell = CreateObject("WScript.Shell")
myShell.Run "calc" , 1, true

Voir l'exemple dans la pièce jointe. Le classeur toto.xls doit être dans C:\

grogoin · 1 Juin 2012

Re : Run Macro dans un new Thread ?

Ca marche très bien, merci beaucoup

Run Macro dans un new Thread ?

grogoin

XLDnaute Nouveau

PMO2

XLDnaute Accro

grogoin

XLDnaute Nouveau

Discussions similaires