Publipostage de données Access vers Word (en VBA) [haut]
contributeur :Coin
Pour lancer un publipostage à partir d'un bouton, il suffit de mettre le code suivant dans la propriété de click du bouton.
'Voici pour la déclaration du code:
Dim wdapp As Word.Application
'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
.Visible = True
'ouvrir le document
.Documents.Open "Chemincompletdudocumentwordàouvrir"
'Diriger le publipostage vers un nouveau document
.ActiveDocument.MailMerge.Execute
End With
'fermer et libérer les objets
Set wdapp = Nothing
Ne pas oublier de cocher dans le menu Outil/Références, la bibliothèque Microsoft Word X Object Library (avec x = 8 pour Excel 97, x = 9 pour Excel 2000, x = 10 pour excel XP, x = 11 pour excel 2003).
Partager