Publipostage automatique avec Excel
bonjour à tout le monde
Je souhaite créer une macro dans un fichier Word qui me permette de créer une liaison automatique avec un fichier Excel se trouvant dans le même répertoire.
J'ai créé un début de code mais cela ne fonctionne pas d'où ma demande d'aide à la communauté. Je pense avoir un problème pour le chemin du fichier source.
Merci pour ceux qui prennent le temps de m'aider.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| Sub Macro1()
'
'
'
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
ThisWorkbook.Path & "\1- donnees stage2.xlsx", _
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=ThisWorkbook.Path & "\1- donnees stage2.xlsx";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
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
End Sub |