1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
|
Sub Macro1()
Dim CheminComplet As String
With ActiveDocument
CheminComplet = .Path & "\1- donnees stage2.xlsx"
.MailMerge.MainDocumentType = wdFormLetters
.MailMerge.OpenDataSource Name:=CheminComplet, _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=CheminComplet;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Typ", SQLStatement:="SELECT * FROM `'Donnees publipostage$'`", SQLStatement1:="", SubType:=wdMergeSubTypeAccess
.MailMerge.ViewMailMergeFieldCodes = wdToggle
End With
End Sub |
Partager