Const DOC_WORD = "E:\..le chemin ...\teste.docx"
Dim wdApp As Word.Application
Set wdApp = New Word.Application
With wdApp
' Word est visible pendant les tests
.Visible = True
' Ouvrir la lettre type
.Documents.Open DOC_WORD
' Lier la lettre type à la source de données Access
.ActiveDocument.MailMerge.OpenDataSource _
Name:=CurrentProject.FullName, _
SQLStatement:="SELECT * FROM [qryPublipostage]"
' La fusion doit se faire dans un nouveau document
.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
' Exécuter la fusion
.ActiveDocument.MailMerge.Execute
Partager