Set MonWord = New Word.Application
MonWord.DisplayAlerts = wdAlertsNone
Set MonDoc = MonWord.Documents.Open(Filename:=[COLOR=red]ThisWorkbook.Path & "\Template.doc"[/COLOR], ConfirmConversions:=True, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="")
Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & [COLOR=seagreen]ThisWorkbook.Path & "\ListePublipostage.xls[/COLOR];Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet "
MonDoc.MailMerge.OpenDataSource Name:= _
[COLOR=seagreen]ThisWorkbook.Path & "\ListePublipostage.xls"[/COLOR] _
, ConfirmConversions:=True, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:=Conn, SQLStatement:="SELECT * FROM `Feuil1$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
With MonDoc.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
MonDoc.Close False
MonWord.DisplayAlerts = wdAlertsAll
MonWord.Visible = True
Set MonDoc = Nothing