Lancer une macro word avec paramètres depuis un vbscript.
2 réponses
Patrice L.T.
Bonjour,
Je m'essaye depuis qq jours au pilotage de word depuis un vbscript.
J'arrive à lancer word et à ouvrir un document, ainsi qu'à lancer une macro.
Le problème est que j'ai besoin d'utiliser une macro word avec paramètres.
La commande "run" fonctionne lorsque l'on utilise une macro classique.
Mais dès qu'il s'agit d'une macro avec paramètres, j'ai une erreur (Code :
80020003) "Impossible d'exécuter la macro spécifiée" .
Voici mon code VBS :
Set wdo = CreateObject("Word.Application")
wdo.visible = True
Set wdocs = wdo.Documents
Set wdoc = wdocs.Open("c:\BAAR01.DOC")
wdo.Run("Macro1((""Toto""))")
Voici ma macro :
Sub Macro1(Optional ByVal Valeur As String = "")
MsgBox (Valeur)
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour,
Je m'essaye depuis qq jours au pilotage de word depuis un vbscript. J'arrive à lancer word et à ouvrir un document, ainsi qu'à lancer une macro.
Le problème est que j'ai besoin d'utiliser une macro word avec paramètres. La commande "run" fonctionne lorsque l'on utilise une macro classique. Mais dès qu'il s'agit d'une macro avec paramètres, j'ai une erreur (Code : 80020003) "Impossible d'exécuter la macro spécifiée" .
Voici mon code VBS :
Set wdo = CreateObject("Word.Application") wdo.visible = True Set wdocs = wdo.Documents Set wdoc = wdocs.Open("c:BAAR01.DOC") wdo.Run("Macro1((""Toto""))")
Voici ma macro :
Sub Macro1(Optional ByVal Valeur As String = "") MsgBox (Valeur) End Sub
Si ta macro s'appelle 'Macro1', et Valeur = "Toto" :
Je m'essaye depuis qq jours au pilotage de word depuis un vbscript.
J'arrive à lancer word et à ouvrir un document, ainsi qu'à lancer une macro.
Le problème est que j'ai besoin d'utiliser une macro word avec paramètres.
La commande "run" fonctionne lorsque l'on utilise une macro classique.
Mais dès qu'il s'agit d'une macro avec paramètres, j'ai une erreur (Code :
80020003) "Impossible d'exécuter la macro spécifiée" .
Voici mon code VBS :
Set wdo = CreateObject("Word.Application")
wdo.visible = True
Set wdocs = wdo.Documents
Set wdoc = wdocs.Open("c:BAAR01.DOC")
wdo.Run("Macro1((""Toto""))")
Voici ma macro :
Sub Macro1(Optional ByVal Valeur As String = "")
MsgBox (Valeur)
End Sub
Si ta macro s'appelle 'Macro1', et Valeur = "Toto" :
Je m'essaye depuis qq jours au pilotage de word depuis un vbscript. J'arrive à lancer word et à ouvrir un document, ainsi qu'à lancer une macro.
Le problème est que j'ai besoin d'utiliser une macro word avec paramètres. La commande "run" fonctionne lorsque l'on utilise une macro classique. Mais dès qu'il s'agit d'une macro avec paramètres, j'ai une erreur (Code : 80020003) "Impossible d'exécuter la macro spécifiée" .
Voici mon code VBS :
Set wdo = CreateObject("Word.Application") wdo.visible = True Set wdocs = wdo.Documents Set wdoc = wdocs.Open("c:BAAR01.DOC") wdo.Run("Macro1((""Toto""))")
Voici ma macro :
Sub Macro1(Optional ByVal Valeur As String = "") MsgBox (Valeur) End Sub
Si ta macro s'appelle 'Macro1', et Valeur = "Toto" :