[DDE]Publipostage de Access à Word

**sylvere_co** · 25/08/2006, 10h17

Bonjour,
J'ai récupéré le code VBa dans la faq, à l'intitulé :
"Publipostage de données Access vers Word"
J'ai les problèmes suivants au lancement :
Bug à la ligne :
ActiveDocument.MailMerge.Execute
(car le document n'est pas document de fusion)
alors que je l'ai préparé avant sur Word..(version 2003)
et ensuite lorsque je vérifie sur Word, il est en lecture seule, transformé en document simple avec le nom des champs figé.

Lorsque je prépare mon mailing sur word .
avec une requete ou bien une table ?
quel choix faire dans les propositions de type :
odbc, ole, etc??
Merci d'avance..

Sylvere

**Tatoine** · 07/10/2006, 10h15

j'ai le meme probleme et je ne trouve pas la solution

**francishop** · 09/01/2007, 20h52

Bonsoir à tous

Je vous livre ma méthode qui a le mérite de fonctionner. Il faut faire le document pincipale dans word.
Outils/lettres et publipostage/fusion et publipostage
A l'étape 3 on va chercher notre table dans access. Privilégiez les tables. Bien qu'il soit possible de fusionner à partir d'une requête sans clause "where"

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
39
40
41
42
43
44
45
46
47
48
49
 
Private Sub cmdPub2007_Click()
On Error GoTo Err_cmdPub2007_Click
'On met à jour la table acquéreursPub par les requêtes suppression et ajout. 
'Cette partie est inutile si vous partez directement d'une table
DoCmd.OpenQuery "qrySupTblVoeuxAcq", acViewNormal, acEdit  'Voir ci-dessus
    DoCmd.OpenQuery "qryAjoutblVoeuxacq", acViewNormal, acEdit 'voir ci-dessus
 
' Chemin d'accès au document Word de publipostage
' Modifiez ce chemin en fonction de votre configuration
Const DOC_WORD = "C:\Bases francis\VoeuxAcquereurs2007.doc"
 
' Variable pour gérer l'objet Word
Dim wdApp As Word.Application
 
' Passer à la partie Publipostage
Set wdApp = New Word.Application
With wdApp
    ' Word est visible pendant les tests
    .Visible = True
 
    ' Ouvrir la lettre type
    .Documents.Open DOC_WORD
 
    ' Lier la lettre type à la source de données Access
    .ActiveDocument.MailMerge.OpenDataSource _
        Name:=CurrentProject.FullName, _
        SQLStatement:="SELECT * FROM [tblVoeuxacq]"
 
    ' La fusion doit se faire dans un nouveau document
    .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
 
    ' Exécuter la fusion
    .ActiveDocument.MailMerge.Execute
    ' Redonner le focus à la lettre type et fermer sans enregistrer
    .Documents.Open DOC_WORD
    .ActiveDocument.Close wdDoNotSaveChanges
End With
 
Set wdApp = Nothing
MsgBox "Publipostage terminé !", vbInformation, "     francishop vous remercie"
 
Exit_cmdPub2007_Click:
    Exit Sub
 
Err_cmdPub2007_Click:
    MsgBox err.Description
    Resume Exit_cmdPub2007_Click
End Sub

Vous notez qu'il apparaîtra a vos yeus émerveillés un document dépourvu de champs de fusion. En effet, il s'agit du document fusionné. Ainsi on est sûr que l'utilisateur final ne modifiera pas notre document type.
Pour ouvrir ce dernier :
Application.FollowHyperlink "C:\Bases francis\VoeuxAcquereurs2007.doc"

Il peut arriver qu'on arrive pas à se connecter depuis word à access. Surtout si on vient d'aller voir un module. Fermez votre base access.
Si après le message qu'il me plaît d'envoyer à l'utilisateur vous ne voyez pas de document word, réduisez votre fenêtre. Word est sans doute tout simplement derrière votre base. C'est un farceur.

Cordialement

Ps. Il est amusant d'exposer sa "science" alors qu'il y a à peine 4 heures j'ai demandé à peu près la même chose sur ce forum pour publisher.
Publisher - Word

Invité · 09/01/2007, 22h25

Excellent enfin quelque chose de clair! en tout cas ça a résolu mon problème principal. J'ai une autre question: est-il possible d'exécuter tout ça en arriere plan, en gros sans que l'on voye la fenetre word? si oui comment? si non comment faire?

**francishop** · 10/01/2007, 16h59

Bonjour à tous,

C'est formidable l'optimisme de notre ami Benzin69 : "Si c'est pas possible, dites moi comment y arriver"!.
On peut se demander pourquoi faire une opération de publipostage word-acces si ce dernier ne doit pas être vu?
Il semble judicieux en cette hypothèse de procéder à ce publipostage seulement depuis word.
Quoi qu'il en soit, si tu veux occulter le résultat de l'opération à l'utilisateur (Mais bon sang pourquoi?.. Une blague?) Tu as une partie de la réponse en clair dans le code communiqué.
Pour le reste, je t'invite à ouvrir un module, en haut à droite "Poser une question" tu tapes WORD
Bon code.

Cordialement

Invité · 10/01/2007, 18h28

je me suis mal exprimé mais bon tant pis,je voulais dire que si ce n'était pas possible avec la solution proposée , y aurait-il une autre méthode qui le permette. Ensuite je désire masquer cela non pas pour faire une blague mais parce que je développe une application pour mon entreprise et les utilisateurs finaux n'auront pas à voir le document word en question

**francishop** · 10/01/2007, 20h24

Bonsoir,

D'accord. Mais il faut reconnaître qu'on ne pouvait pas laisser passer. L'occasion était trop belle de te chambrer.
Bien sur qu'il est possible de masquer word

.visible = false
Et aprés n'oublie pas de fermer ton document.
Ton utilisateur peut bien voir ton document. Comme je l'indiquais hier, il n'y a aucun champ de fusion porté à ses talents de compositeur.

Cordialement

**twentyfour** · 11/01/2007, 14h08

franchement j'ai du mal à vous suivre sur comment vous faites.

**francishop** · 11/01/2007, 15h25

Bonjour,
twentyfour, shématise ce que tu fais. Explique déjà en partant de word.
Si tu arrives à obtenir un résultat concluant dans word, dans ce cas explique dans access.
Cordialement

Invité · 12/01/2007, 21h16

la commande .visible=false ne suffit pas, word s'ouvre quand même dans la seconde partie du publipostage... vous avez une idée?

**francishop** · 13/01/2007, 15h35

Bonjour,

C'est terrible. J'ai l'impression que ça ne peut que servir à rien.
Pourquoi faire un publipostage si on ne le voit pas. Il pourrait y avoir une seule explication : On imprime!
En tous les cas ça me fais chercher. Et voilà le résultat :

wdApp.Quit wdDoNotSaveChanges
Set wdApp = Nothing

Cordialement.

**Cyric** · 13/04/2007, 15h50

Bonjour,

Voila une semaine que j'ecume les forums à la recherche d'UNE indication,

j'espère donc que vous pourrez m'aider.

Question publipostage ca roule, mais mon soucis actuellement cerait de publiposter UN enregistrement à la fois.

Pour cela j'ai créer un formulaire qui affiche un enregistrement à la fois de ma table, et un bouton qui lance le publipostage, mais bien sur des que j'active le bouton, je me retrouve a publiposter l'ensemble de mes enregistrements

.

**Domi2** · 13/04/2007, 16h08

Bonjour,

mais mon soucis actuellement cerait de publiposter UN enregistrement à la fois

Peut-on encore parler de publipostage alors ?

Si tu déclenches l'impression depuis un formulaire, le plus simple est d'insérer les champs du formulaire dans le document Word en utilisant des signets.

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
Function Insertion()
    On Error Resume Next
    Dim W_App As New Word.Application
    With W_App
        .Visible = True
        .Documents.Open ("doc1.doc")
        .ActiveDocument.Bookmarks("Ville").Select
        .Selection.Text = Me.Texte1
        .ActiveDocument.Bookmarks("Adresse").Select
        .Selection.Text = Me.Texte3
        .ActiveDocument.SaveAs ("Doc2.Doc")
        .Quit
    End With
    Set W_App = Nothing
End Function

Domi2

**Cyric** · 13/04/2007, 16h36

Ayé ca marche, avant j'avait cree un modulé appelé par un bouton, la j'ai tout mis dans l'execution du bouton, et j'ai rajouté une clause WHERE dans la requete SQLSTATEMENT, portant sur la valeur de l'id affichée .

Le problème c'est que ca ne marche que pour les premier enregistrements, mais pour les derniers ca publiposte n'importe lequel en m'affichant pourtant l'id correct

j'essaie d'un publiposter plein pour trouver d'où peut venir l'erreur, mais ca me parait louche

**francishop** · 14/04/2007, 23h19

Bonjour;

Part d'une table et tu n'auras plus de soucis. C'est du solide. Dans ton cas un seul enregistrement.
Lors de mon post du 9 Janvier j'indiquais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'On met à jour la table acquéreursPub par les requêtes suppression et ajout. 
'Cette partie est inutile si vous partez directement d'une table
DoCmd.OpenQuery "qrySupTblVoeuxAcq", acViewNormal, acEdit  'Voir ci-dessus
    DoCmd.OpenQuery "qryAjoutblVoeuxacq", acViewNormal, acEdit 'voir ci-dessus

Dans un premier temps tu "vides" ta table puis tu la "remplis" à l'aide de requêtes idoines. Word n'a plus qu'à se servir.

Cordialement.

**Cyric** · 16/04/2007, 09h58

Ayé j'ai trouve, il faut juste eviter de mettre le code dans un module, et le mettre directement dans le code du bouton, et vérifier le nom des tables utilisées

[DDE]Publipostage de Access à Word

VBA Access

Discussions similaires

Partager

Partager