lancer macro excel depuis dos

[Béhaegel]

Bonjour,

J'ai créé une macro sous excel que je souhaite lancer depuis l'invite de commande via un vbscript.

J'utilise pour cela la commande Application.Run comme tout le monde semble le conseiller.

Une instance excel s'ouvre après la commande worbook.open mais le fichier excel contenant la macro ne s'ouvre pas. Le script passe la commande Application.Run mais la macro ne s'exécute pas.

Ci-dessous, le contenu du script.


Main
Sub Main()
On Error Resume Next
Dim Objexc, x
Set Objexc = CreateObject("Excel.Application")
With Objexc.Application
.Visible = True
Workbooks.Open "C:\Eric\testmacro.xls"
MsgBox("xl ouvert ")
'Application.Run "testmacro.xls!test"
x = .Run("test",0)
End With
MsgBox("testmacro passé")
End Sub


Merci de m'indiquer pourquoi cela ne fonctionne pas.

NB : tout se trouve en local sur un PC sous XP pro

Cordialement,

Eric Béhaegel

 

[Alain CROS]

Bonjour

Le script doit ressembler a ça.

On Error Resume Next
Dim Objexc
Set Objexc = CreateObject("Excel.Application")
With Objexc
.Visible = True
.Workbooks.Open "C:\Eric\testmacro.xls"
.Run "test"
End With
set Objexc=Nothing

Alain CROS