Discussion :

[Sami-33]

Bonjour à tous,
Je souhaite exécuter une macro Word avec passage de parametres à partir d'une macro Excel.
Mon problème est que j'arrive à exécuter la macro word sans le passage de parametre mais dès que j'essaie de lui passer un parametre j'obtiens l'erreur :

"Erreur d'éxecution '483'
Propriété ou methode non gérée par cet objet"

Alors que l'éditeur m'indique que je peux ajouter des parametres !!!

Voici ma macro Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub Macro_Executer(WordApp As Word.Application, document$, module$, macro$, Optional parametre1$ = "")
    WordApp.Run document$ + module$ + "." + "!" + macro$, parametre1$
End Sub

et ma macro word :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub TexteMasque_Ajouter(Texte$)
MsgBox Texte$
End Sub

SVP aidez mais, je suis coincé et sans ça je ne peux pas avancer
Merci

[tirex28]

Bonjour,

Personellement ca bloque lorsque j'insere le nom du fichier dans le chemin,
mais les syntaxes suivantes fonctionnent correctement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim Parametre As String
 
Parametre = "bonjour"
 
WdApp.Run "MacroLanceParExcel", Parametre
 
WdApp.Run "Module1.MacroLanceParExcel", Parametre

Cordialement,

Tirex28/

[SilkyRoad]

bonsoir


Refait un essai en plaçant la procédure Word dans le module objet ThisDocument:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub TexteMasque_Ajouter(Texte$)
   ThisDocument.Range.Text = Texte$
End Sub

michel

[Sami-33]

Merci pour votre aide precieuse, à present le passage de parametre entre mes macros fonctionne.