Bonjour à tous

Je sollicite votre aide car j'aimerais pouvoir automatiser un publipostage depuis une base de données excel via un document word pour envoyer in fine un email.

Avec les aides sur Internet, j'ai pu créer " manuellement" un publipostage dans word mais j'aimerais qu'en cliquant sur un bouton dans excel on puisse lancer automatiquement le publipostage.

J'utilise le code suivant mais cela ne fonctionne pas:
Il affiche une erreur à cette ligne "ActiveDocument.MailMerge.OpenDataSource Name"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Publiv2()
Dim docWord As Object
Dim appWord As Object
 
' Démarrer Word
    Set WordApp = CreateObject("word.application")
With WordApp.Visible = True
    'Ouverture du document principal Word
    Set docWord = WordApp.Documents.Open("C:\Documents and Settings\e.level\Bureau\Publipostage\Template v2.docx")
 
ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\e.level\Bureau\Publipostage\base de donnée.xlsx"
 
      ' Diriger le publipostage vers un nouveau document
     ActiveDocument.MailMerge.Execute
End With
 
' Fermer et libérer les objets
Set wdApp = Nothing
End Sub
Merci bcp pour votre aide