[Publipostage] J'y suis presque ! Reste un détail

**SuperBlaireau** · 06/07/2006, 14h07

Coucou,

J'ai réussi à me débrouiller avec la FAQ et le forum pour pondre qqch de plus ou moins potable pour faire mon publipostage. C'est un patchwork obtenu de diverses manière, c tout ce que j'ai réussi à faire

BUT : Sur clic bouton, ouvrir document déja fusionné et l'enregistrer avec un nom précis.

PROBLèME : Dans le code ci-dessous le document principal de fusion s'ouvre, ainsi que le document fusionné. J'aimerais éviter d'afficher le document principal de fusion, et n'avoir que le fichier final à l'écran. Qu'est-ce qui ne joue pas ?

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
 
'Voici pour la déclaration du code:
Dim wdapp As Word.Application
 
'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = False
 
      'ouvrir le document
      .Documents.Open "C:\Documents and Settings\Marc-Alexandre\Bureau\DCD Bericht und Zusage.doc"
 
      'Diriger le publipostage vers un nouveau document
 
   .ActiveDocument.MailMerge.MainDocumentType = wdFormNormal
   .ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Documents and Settings\Marc-Alexandre\Bureau\Sites.mdb", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="QUERY Sites Requete pour décision" _
        , SQLStatement:="SELECT * FROM [Sites Requete pour décision]", _
        SQLStatement1:="", SubType:=wdMergeSubTypeOther
 
     .ActiveDocument.MailMerge.Execute
     .ActiveDocument.SaveAs CurrentProject.Path & "/testsave.doc"
     .ActiveDocument.Close
 
End With
 
'fermer et libérer les objets
wdapp.Documents.Close
Set wdapp = Nothing

Merci de vos conseils

**Trini** · 06/07/2006, 14h18

Tu as essayé avec la commande Application.Echo False

**=JBO=** · 06/07/2006, 14h36

Bonjour,

Envoyé par SuperBlaireau

J'ai réussi à me débrouiller avec la FAQ et le forum pour pondre qqch de plus ou moins potable pour faire mon publipostage.
C'est un patchwork obtenu de diverses manière, c tout ce que j'ai réussi à faire

Je trouve ça très bien !

Envoyé par SuperBlaireau

PROBLèME : Dans le code ci-dessous le document principal de fusion s'ouvre, ainsi que le document fusionné.
J'aimerais éviter d'afficher le document principal de fusion, et n'avoir que le fichier final à l'écran.
Qu'est-ce qui ne joue pas ?

Après le Execute un nouveau Document est créé (résultat de la fusion).
Et, à ce moment là, la propriété ActiveDocument désigne ce nouveau document "final".
Donc, il faut au préalable garder une référence sur le document "modèle" avec une variable objet Document.

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
 
'Voici pour la déclaration du code:
Dim wdapp As Word.Application, wddoc as Word.Document
 
'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = False
 
      'ouvrir le document "modèle"
      setwddoc = .Documents.Open("C:\Documents and Settings\Marc-Alexandre\Bureau\DCD Bericht und Zusage.doc")
 
      'Diriger le publipostage vers un nouveau document "final"
 
   wddoc.MailMerge.MainDocumentType = wdFormNormal
   wddoc.MailMerge.OpenDataSource Name:= _
        "C:\Documents and Settings\Marc-Alexandre\Bureau\Sites.mdb", _
        ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:="QUERY Sites Requete pour décision" _
        , SQLStatement:="SELECT * FROM [Sites Requete pour décision]", _
        SQLStatement1:="", SubType:=wdMergeSubTypeOther
 
     wddoc.MailMerge.Execute
 
     ' enregistrer le document "final" provenant de l'exécution de la fusion
     .ActiveDocument.SaveAs CurrentProject.Path & "/testsave.doc"
 
     ' fermer le document "modèle"
     wddoc.Close
     Set wddoc = Nothing
 
     ' à ce stade, le document "final" est encore affiché
 
End With
 
'fermer et libérer les objets
wdapp.Documents.Close
Set wdapp = Nothing

**scorpion1611** · 06/07/2006, 14h43

Je ne sais pas si ca peut jouer mais moi, au lieu de l'action open, j'utilise Add

Code :

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

1
2
3
4
 
 
 
.Documents.Add Template:="C:\Documents and Settings\Marc-Alexandre\Bureau\DCD Bericht und Zusage.doc

Vu sur l'aide (F1)

Utilisation de la méthode Open avec la collection Documents pour ouvrir un document créé à partir d'un modèle ou pour ouvrir un modèle.

Utilisation de la méthode Add avec la collection Documents pour ouvrir un nouveau document créé à partir d'un modèle.

**SuperBlaireau** · 06/07/2006, 15h13

Merci =JBO=, après avoir déplacé le "End with", j'ai testé ta solution mais j'ai une erreur :

Code :

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

Référence incorrecte ou non qualifiée

$

sur la ligne :

Code :

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

Setwddoc = .Documents.Open(MonChemin)

**=JBO=** · 06/07/2006, 15h21

C'est peut être seulement une erreur de frappe de ma part...

Il faut un espace entre l'instruction Set et le nom de la variable.

Mais ta remarque m'inquiète...

Envoyé par SuperBlaireau

après avoir déplacé le "End with"

Alors pour plus de sûreté, essaye d'abord la syntaxe complète.

Code :

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

Set wddoc = Application.Documents.Open(MonChemin)

**SuperBlaireau** · 06/07/2006, 15h25

A présent j'ai l'erreur suivante avec la syntaxe complète :

Code :

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

Membre de méthode ou de données introuvable

J'ai déplacé le end with car le With se rapportait a wdapp et non pas a wddoc

**=JBO=** · 06/07/2006, 15h28

Envoyé par SuperBlaireau

A présent j'ai l'erreur suivante avec la syntaxe complète :

Code :

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

Membre de méthode ou de données introuvable

OK, j'oubliais qu'on est dans Access

Envoyé par SuperBlaireau

J'ai déplacé le end with car le With se rapportait a wdapp et non pas a wddoc

T'aurais pas dû...

La bonne syntaxe complète... (j'espère

):

Code :

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

Set wddoc = wdapp.Documents.Open(MonChemin)

**SuperBlaireau** · 06/07/2006, 15h38

Superbe, ça fonctionne bien. J'ai par contre encore une fenêtre Word vide qui reste affichée. J'ai tenté ça :

Code :

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

1
2
3
wdapp.Documents.close
set wdapp = nothing
wdapp.close

mais ça ne passe pas. (Suis nul en automation

)

**SuperBlaireau** · 06/07/2006, 15h42

J'ai trouvé, suffisait de rajouter un

wdapp.quit

Merci pour ton aide précieuse !!!

**=JBO=** · 06/07/2006, 15h43

Envoyé par SuperBlaireau

Superbe, ça fonctionne bien. J'ai par contre encore une fenêtre Word vide qui reste affichée. J'ai tenté ça :

Code :

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

1
2
3
wdapp.Documents.close
set wdapp = nothing
wdapp.close

mais ça ne passe pas. (Suis nul en automation

)

Eh bien, il y a une solution pour les "nuls en automation"

et aussi pour les autres:

l'explorateur d'objets disponible dans l'environnement de développement VBA.
Tu aurais découvert la méthode Quit.

Code :

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

1
2
3
wdapp.Documents.close
wdapp.Quit
set wdapp = nothing

{EDIT}Je suis arrivé trop tard... Encore bravo !{/EDIT}

[Publipostage] J'y suis presque ! Reste un détail

Access

Discussions similaires

Partager

Partager