Lancer macro de word depuis Excel

[phil]

Bonjour,

petit problème de fonctionnement :
depuis excel je lance la macro (ci dessous) et c'est ok j'arrive bien
à ouvrir word mais ensuite j'aimerais lancer une macro qui est dans
word et qui s'appelle Autonew.main et donc depuis la ligne
Application.Run......ça plante
Merci d'avance pour votre aide et attention

Sub Ouv_Word()
'ouvre l'application word
Set wrdApp = CreateObject('Word.Application')
'ouvre le document export.dot
Set wrdDoc = wrdApp.Documents.Open('I:\\ExportProd\\Export.dot')

???
Application.Run MacroName:='AutoNew.MAIN'
Dim Macro As Object
Set Macro = Macro.Application
Application.Run 'AutoNew.MAIN'
wrdApp.Visible = True
Exit Sub
End Sub

 

[JPM]

Bonjour,

Puis-ce que tu es dans Excel lorsque tu lances la macro, l'objet Application représente Excel (et non Word !). Dans ton code, il faut te servir de ta variable objet wrdApp pour désigner Word.

Donc il faut remplacer ta ligne

Application.Run MacroName:='AutoNew.MAIN'

par

wrdApp.Run MacroName:='AutoNew.MAIN'

Bonne continuation,

Jean-Pierre