[OL-2003] Comment piloter une macros word via Outlook ? [Résolu]

[coupcoup83]

Bonsoir,
Je suis un nouveau sur le forum , je suis actuellement entrain de travailler sur une macro OUTLOOK , qui me permettrai d'exécuter une de mes macros enregistrer dans word . Je n'ai pas beaucoup de connaissance sur la programmation , je recherche depuis longtemps un code me permettant de piloter ma macros word par une macros outlook.
Je vous remercie d'avance .

[carden752]

Bonjour,

Il faut déjà déclarer les deux références Outlook et Word.
Ensuite, il faut exécuter la macro :

Voici un exemple à adapter

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub lancermacroword()
Dim wordapp As Word.Application
Dim worddoc As Word.Document
 
'Créer une instance Word
Set wordapp = New Word.Application
'Rendre l'application Word visible
wordapp.Visible = True
'Ouvrir un document Word spécifique
Set worddoc = wordapp.Documents.Open("Monfichierword")
'Lancer la macro
wordapp.Run "macroword"
'Fermer le document Word
worddoc.Close
'Quitter l'application Word
wordapp.Quit
'Réinitialiser les variables
Set worddoc = Nothing
Set wordapp = Nothing
End Sub

[coupcoup83]

Je tenais vous remercier pour la macro , elle fonctionne bien