1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Sub publipostage()
'
' publipostage Macro
' publipostage
'
ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Users\User\Desktop\contrat\INTEGRAL DESIGNATION MAKER3\modeleIM3.xlsm" _
, 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=C:\Users\User\Desktop\contrat\INTEGRAL DESIGNATION MAKER3\modeleIM3.xlsm;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engi" _
, SQLStatement:="SELECT * FROM `Données$`", SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
End Sub |
Partager