Discussion :

[oliviou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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