Macro Word lancée par Macro Excel

[RV37]

Bonjour à toutes et tous,

Je souhaite intégré dans une macro excel lancé à partir de mon classeur une macro existante dans un fichier word.

J'ouvre depuis excel ce fichier word par lien hypertexte, par contre une fois ce fichier ouvert excel n'exécute pas la macro sous word.

Avez vous un solution ??

Merci de votre aide

Cordialement.

 

[MichelXld]

Re : Macro Word lancée par Macro Excel

bonjour

j'espere que ces infos pourront t'aider

Sub lancerMacroWord()
    'Activez la reference Microsoft Word xx.x Object Library
    Dim wordApp As Word.Application
    
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    
    'ouverture du fichier Word
    wordApp.Documents.Open ("C:\monDocument.doc")
    wordApp.Run "laMacro"
End Sub

Un autre exemple si le document Word est deja ouvert

Private Sub CommandButton1_Click()
    Dim wordApp As Object
    Set wordApp = GetObject(, "Word.Application")
    wordApp.Run "maProcedure"
End Sub

bonne soiree
MichelXld

 

[RV37]

Re : Macro Word lancée par Macro Excel

Bonjour,

Merci pour ce retour Michel XLD, cela m'a été très utile et ta réponse colle tout à fait à mes besoins.

Au plaisir de se retrouver sur le Forum.

Bonne soirée

Hervé😉