Faire un publipostage en Vba

Version imprimable

23/03/2009, 10h39
NEC14
Bonjour le forum,

J'ai un fichier Word comprenant des étiquettes faites en publipostages.
Je souhaite utiliser ce fichier dans une application Excel.
A l'aide d'un bouton, j'ouvre le fichier dans Word (Etiq). Dès l'ouverture du fichier je voudrais que la mise à jour soit automatique.
Comment dois-je m'y prendre ?
Merci pour votre aide

J'ai commencé le code, mais je ne sais pas comment faire pour la mise à jour automatique.
Merci pour vos suggestions
Code:

1 2 3 4 5 6 7 Private Sub Op3_Click() Set wrdapp = CreateObject("Word.Application") Set wrdDoc = wrdapp.documents.Open("C:\Documents and Settings\CLAS\Etiq.doc") wrdapp.Visible = True Exit Sub End Sub
23/03/2009, 11h33
Jean-Philippe André

Bonjour,
peux-tu nous spécifier si la mise à jour automatique se fait depuis Excel vers Word, ou bien l'inverse stp ?
23/03/2009, 12h03
NEC14

Bonjour,

La base de données est en Excel, lorsque j'ouvre le fichier "Etiq" dans Word, et que des modif ont été apportées dans la base Excel, il serait souhaitable que celle-ci soient prises en compte dès l'ouverture du fichier Word.
Ai-je répondu à ta question ?
23/03/2009, 12h07
Jean-Philippe André

Oui,
Le fichier est ouvert dès que la ligne de code est passée ;)

une fois ton fichier ouvert, tu peux manipuler son contenu avec les fonctions en exemple dans la :faq:
http://excel.developpez.com/faq/inde...#LireChampWord

et plus largement :
http://excel.developpez.com/faq/index.php?page=Word#

si ces solutions ne te permettent pas d'arriver à tes fins, on reste dispo ;)

Voici le code que j'ai fait. Deux erreurs surviennent
1ère : Une fois utilisé, le fichier word reste verrouillé par l'utilisateur (message : "Etiq.Doc est verrouillé par....")
2ème : Le message suivant apparaît ("Le membre de la collection requis n'existe pas". Le champ "Titre" est surligné en jaune
Pouvez-vous m'apporter votre éclairage s'il vous plait ?
Merci par avance

Les champs de fusion sont sur la ligne 2 en en-tête de colonne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub Op3_Click() Dim WordApp As Word.Application Dim WordDoc As Word.Document 'ouverture de la session Word Set WordApp = New Word.Application 'ouverture du document Word Set WordDoc = WordApp.documents.Open("C:\Documents and Settings\CLAS\Etiq.doc") 'Word est visible pendant l'opération WordApp.Visible = True 'Fields(1) : premier champ du document Word 'Insertion du contenu de la cellule dans le champ WordDoc.Fields(1).Result.Text = Range("U2") 'Titre WordDoc.Fields(2).Result.Text = Range("C2") 'NOM WordDoc.Fields(3).Result.Text = Range("D2") 'Prénom WordDoc.Fields(4).Result.Text = Range("P2") 'Rue WordDoc.Fields(5).Result.Text = Range("O2") 'Complément WordDoc.Fields(6).Result.Text = Range("Q2") 'Code postal WordDoc.Fields(7).Result.Text = Range("R2") 'Ville 'sauvegarde les modifications WordDoc.Save End Sub

23/03/2009, 13h52
Jean-Philippe André
Quelques tips :
- en plus de sauvegarder le fichier, il faut que tu le fermes pour l'utiliser :

Code:

WordDoc.Close

- il en va de même pour l'appli Word créée :
Code:

1 2 WordApp.Quit Set WordApp = Nothing
Enfin, pour le publi postage, je te recommande le cours très complet à ce sujet d'HeureuxOli:
http://heureuxoli.developpez.com/off.../publipostage/

Voilà ce code fonctionne, il n'est peut être pas très beau (:oops:) mais il marche.
Qu'en pensez-vous ?

Code:

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
 
Private Sub Op3_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'ouverture de la session Word
Set WordApp = New Word.Application
 
'ouverture du document Word
Set WordDoc = WordApp.documents.Open("C:\Documents and Settings\CLAS\Base.doc")
 
'Word est visible pendant l'opération
WordApp.Visible = True
 
'Recherche des champs de fusions dans le fichier source
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Documents and Settings\CLAS\Compte CLAS.xls", ConfirmConversions:= _
        False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\CLAS\Compte CLAS.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Je" _
        , SQLStatement:="SELECT * FROM `Adhé$Print_Area`", SQLStatement1:="", _
        SubType:=wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
'sauvegarde les modifications
WordDoc.Save
End Sub

23/03/2009, 13h58
Jean-Philippe André

Ce code doit être celui généré par le macro recorder, donc pas de soucis ;)
Il n'est pas toujours nécessaire que le code soit beau pour être efficace ;)
23/03/2009, 14h04
NEC14

Oui tout à fait.
Je vais essayé de l'améliorer en enlevant ce qui est inutile, en espérant ne pas me planter.

Bonjour le forum,

J'ai mis le code suivant pour mettre à jour mon fichier étiquettes.
J'ai cependant 2 anomalies :
la 1ère : Ce message d'erreur "Erreur d'exécution '4248' : Commande non disponible aucun document n'est ouvert". La ligne que j'ai souligné dans mon code est en surbrillance.
la 2ème : C'est qu'une fois le fichier Doc ouvert, il n'est plus accessible. Un message me demande si je veux l'ouvrir en lecture seule.

Pouvez-vous m'expliquer ce qui ne va pas dans mon code. J'y ai passé la nuit et je n'ai rien trouvé.
Merci par avance
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Op3_Click() Dim appWD As Word.Application Set appWD = CreateObject("Word.Application") ' un objet word est créé appWD.Documents.Open Filename:="C:\Documents and Settings\CLAS\Base.doc" With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With ChangeFileOpenDirectory "C:\Documents and Settings\CLAS\" ActiveDocument.SaveAs Filename:="Etiq.doc", FileFormat:=wdFormatDocument, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False End Sub

24/03/2009, 09h41
Jean-Philippe André

Salut,
tu n'utilises plus d'object Word.Document ? ESt-ce voulu ?
24/03/2009, 09h58
NEC14

Ben non, il faut que j'utilise un objet Word puisque le fichier de fusion est un fichier Word (Base.doc) alimentée par une base de donnée Excel (Adhé.exe)

J'ai encore cafouillé.
25/03/2009, 08h35
NEC14

Bonjour le forum,

Je pensais avoir réussi, mais rien, ça ne marche pas.
Je vous explique donc ce que je souhaite faire :
1 - A partir du click sur un bouton option (op3) un fichier Word s'ouvre (Base.doc)
2 - La fusion avec la base de donnée Excel (Compte CLAS\feuille Adhé)
3 - Le fichier Base.doc est sauvegardé sous le même nom et fermé
4 - Le fichier de fusion est sauvegardé sous le nom Etiq.doc (qui existe déjà)

Le code que j'ai mis en place ne focntionne qu'une fois, ensuite je ne peux plus accèder au fichier Base.doc
Pourtant j'ai fait ce que l'on m'a dit dans les différentes discussions.

Bon, si vous avez un peu de temps à m'accorder, je vous en remercie par avance

Ps: j'ai changé le titre de cette discussion. Celui-ci me paraît plus approprié.
Merci pour votre compréhension

ça y est j'y suis arrivé.
Voici le code si cela peut servir ou si vous avez des suggestions d'amélioration à me faire.
Merci à tous pour votre aide

Code:

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
 
Private Sub Op3_Click()
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
 
    NomBase = "C:\Documents and Settings\CLAS\Compte CLAS.xls"
 
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Documents and Settings\CLAS\Base.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM `Adhé$Print_Area`"
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
 
    Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close True
End Sub

25/03/2009, 15h57
NEC14

Re le forum,

Une fois la procédure exécutée, je referme le fichier Excel "Compte CLAS", mais systématiquement, quelques secondes après, le message suivant apparaît :

Fichier désormais disponible. <<Compte CLAS.xls>> est à présent disponible pour modification. Ouvrez le fichier en lecture-écriture pour le modifier.

Je ne comprends pas ce qui se passe
25/03/2009, 16h03
Jean-Philippe André

Il me semble que la connection ouverte vers le fichier Excel n'est pas fermée dans ton code ;)
25/03/2009, 16h07
NEC14

Et comment résoudre ce problème ? Je ne sais même pas quoi mettre et où.
25/03/2009, 17h11
Jean-Philippe André

Dans la :faq:
j'ai trouvé qu'il fallait exécuter le mailmerge
http://access.developpez.com/faq/?pa...PublAccessWord

Code:

.Execute

Tu peux l'adapter à ton cas il me semble.

Bonjour le forum, Bonjour jpcheck,

J'ai ajouté ce qui manquai à mon code et apparament le problème ne perdure pas.

Merci à tous pour votre aide

Je mets le code si cela peut servir

Code:

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
 
Private Sub Op3_Click()
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
 
    NomBase = "C:\Documents and Settings\CLAS\Compte CLAS.xls"
 
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    Set wdApp = CreateObject("Word.application")
    With wdApp.Visible = True
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Documents and Settings\CLAS\Base.doc")
 
    'fonctionnalité de publipostage pour le document spécifié
    With docWord.MailMerge
        'Ouvre la base de données
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM `Adhé$Print_Area`"
            'Prend en compte l'ensemble des enregistrements
            With .DataSource
                .FirstRecord = wdDefaultFirstRecord
                .LastRecord = wdDefaultLastRecord
            End With
        'Exécute l'opération de publipostage
        .Execute Pause:=False
    End With
    End With
    Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close True
    Set wdApp = Nothing
End Sub