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

  1. #1
    Candidat au Club
    Homme Profil pro
    Enseignant Chercheur
    Inscrit en
    septembre 2019
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Enseignant Chercheur

    Informations forums :
    Inscription : septembre 2019
    Messages : 1
    Points : 2
    Points
    2

    Par défaut 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

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    4 119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 4 119
    Points : 10 521
    Points
    10 521
    Billets dans le blog
    28

    Par défaut

    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

Discussions similaires

  1. [2016] Word Publipostage Problème avec tableau + formule Excel
    Par Laki38 dans le forum Microsoft Office
    Réponses: 0
    Dernier message: 08/01/2018, 20h12
  2. [VBA-E] Macro automatique ouverture Excel
    Par P50 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 03/04/2006, 11h42
  3. [VBA] Comment utiliser Access avec Excel
    Par MxPx_23 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 09/02/2006, 12h00
  4. VBA pb de format avec excel
    Par 24 faubourg dans le forum Access
    Réponses: 1
    Dernier message: 08/12/2005, 12h46
  5. [VBA] supression element Acces avec Excel
    Par Emcy dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 07/11/2005, 17h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo