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 du Club
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Février 2016
    Messages
    100
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2016
    Messages : 100
    Points : 49
    Points
    49
    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
    11 987
    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 : 11 987
    Points : 24 540
    Points
    24 540
    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,
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

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

    Informations professionnelles :
    Activité : Chargé d'affaire

    Informations forums :
    Inscription : Février 2016
    Messages : 100
    Points : 49
    Points
    49
    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
    11 987
    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 : 11 987
    Points : 24 540
    Points
    24 540
    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.
    Détecter les modifications formulaire Cloud storage et ACCESS
    Classe MELA(CRUD) Opérateur IN et zone de liste Opérateur LIKE
    Visitez mon Blog
    Les questions techniques par MP ne sont pas lues et je ne pratique pas la bactériomancie

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, 16h19
  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, 18h43
  3. Réponses: 0
    Dernier message: 27/12/2008, 20h33
  4. Réponses: 0
    Dernier message: 22/09/2008, 20h24
  5. Réponses: 1
    Dernier message: 20/09/2008, 09h18

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