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"
Merci bcp pour votre aide
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
Partager