IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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 VBA - Acces vers Word


Sujet :

VBA Word

  1. #1
    Membre confirmé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2016
    Messages : 100
    Par défaut Publipostage VBA - Acces vers Word
    Bonjour à tous,

    Un petit soucis que j'arrive pas à règler avec tous les tuto et aide sur le forum

    D'ACCES vers WORD - une requête de regroupement avec plusieurs nbre X de résultats avec un doc Word, et j'aimerai une page par résultat (Requête)
    Du style SAUT de pages après chaque entrée de la requete

    Requete : Export_pzt
    Doc Word : test.dotx - avec marqueur
    ------------------
    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Sub Exportword()
    
    'Dim wApp As Word.Application  --- c'est quoi le problème
    Dim chemin As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim sql As String
    sql = "SELECT * from Export_pzt"
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(sql)
    Set wApp = CreateObject("Word.Application")
        chemin = CurrentProject.Path
    wApp.Visible = True
    
    While Not rs.EOF
    
    With wApp
        .Documents.Open FileName:="Y:\nomdudoc.dotx"
        .ActiveDocument.Bookmarks("Matchcode").Range.Text = rs.Fields("Matchcode")
        .ActiveDocument.Bookmarks("PalUnique").Range.Text = rs.Fields("PalUnique")
        .ActiveDocument.Bookmarks("Bezeichnung").Range.Text = rs.Fields("Bezeichnung")
        '.ActiveDocument.Bookmarks("Bezeich").Range.Text = rs.Fields("Bezeich")
        .ActiveDocument.Bookmarks("VersionSplit").Range.Text = rs.Fields("VersionSplit")
        .ActiveDocument.Bookmarks("Auflage").Range.Text = rs.Fields("Auflage")
            
    rs.MoveNext
    
    End With
    
    Wend
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    Set wApp = Nothing
    
    End Sub
    Merci pour votre aide

  2. #2
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 148
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 148
    Par défaut
    Bonjour,

    Même si c'est depuis ACCESS il s'agit d'un code WORD je te transfère dans la rubrique.

    Ps : un simple publipostage a le comportement que tu souhaites (un document pas enregistrement ou ligne de requête).
    Là tu utilises une méthode pour avoir plusieurs enregistrements (ou ligne) sur le même document.

    Cordialement,

  3. #3
    Membre confirmé
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2016
    Messages : 100
    Par défaut Code fonctionne, mais à moitié...
    Bonjour,

    Entre temps j'ai réussi à faire fonctionner le code.

    Mais, parce qu'il y a un mais, tout les enregistrement se font dans le même document Word= la m^eme page.
    Idéalement, j'aimerai obtenir un document avec une page par enregistrement.

    Comment faire ?

    Merci pour votre aide

  4. #4
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 148
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 148
    Par défaut
    Il ne faut pas utiliser la méthode à base de bookmark mais un simple publipostage.

    Avec ce tuto : http://heureuxoli.developpez.com/publipostage/

    Entre Faq et tuto tu as tout pour régler ces problèmes basiques.

Discussions similaires

  1. [Télétravail] Développeur VBA/ Acces, Excel, Word, Outlook
    Par pgz dans le forum Demandes
    Réponses: 0
    Dernier message: 10/01/2010, 15h19
  2. [Télétravail] Développeur VBA/ Acces, Excel, Word, Outlook
    Par pgz dans le forum Demandes
    Réponses: 0
    Dernier message: 18/05/2009, 17h43
  3. Réponses: 0
    Dernier message: 27/12/2008, 19h33
  4. Réponses: 0
    Dernier message: 22/09/2008, 19h24
  5. Réponses: 1
    Dernier message: 20/09/2008, 08h18

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