Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

Publipostage automatique avec Excel


Sujet :

VBA Word

  1. #1
    Candidat au Club
    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 :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

  2. #2
    Expert éminent sénior
    Citation Envoyé par oliviou Voir le message

    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
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter