Discussion :

[*.Har(d)t]

Bonjour,

je suis en galère avec un publipostage que je lance depuis Access:

Quand je le lance, MailMerge créé une (voire plusieurs, parfois) instance(s) d'access.

J'aimerais pouvoir fermer cette instance vide qui ne sert à rien, sauf à embrouiller l'utilisateur final...

Voilà un bout de code (J'ai adapté ce que j'ai récupéré ici)

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
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 [rContratCDDSaison]"
 
        ' 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

[Heureux-oli]

Un peu spécial, tu nous dis que tu as plusieurs instances d'access ouvertes et tu nous donnes la partie relative à Word ??

[*.Har(d)t]

Un peu spécial, tu nous dis que tu as plusieurs instances d'access ouvertes et tu nous donnes la partie relative à Word ??

Je me suis dit que c'est le openDataSource du mailmerge qui devait créer ces instances en plus, mais je peux me tromper.

Voici le code complet du bouton:

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
Private Sub cmdDUE_Click()
    'Lance le publipostage vers DUE
    Call creerRequeteDUE(CLng(Nz(Me.numContrat)))
    ' Variable pour gérer l'objet Word
    Dim wdApp As Word.Application
    ' Modifiez ce chemin en fonction de votre configuration
    Const DOC_WORD = "E:\toto\DUE.doc"
 
    ' 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 [rDUE]"
 
        ' 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
Exit_cmdPub2007_Click:
        Exit Sub
 
Err_cmdPub2007_Click:
        MsgBox err.Description
        Resume Exit_cmdPub2007_Click
End Sub

Et la procédure creerRequeteDUE(), qui sert à créer une requête à partir de laquelle je lance le publipostage.

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
Sub creerRequeteDUE(unId As Long)
    'Créé une requête concernant la déclaration unique d'embauche qu'on veut imprimer
    Dim strSQL As String, requete As QueryDef
On Error GoTo err_creationrequete
 
    strSQL = "SELECT tPersonne.numMatricule, tPersonne.nom, tPersonne.nomJeuneFille, tPersonne.prenom, tPersonne.sexe, tPersonne.numSSMSA, tPersonne.nationalite, tPersonne.dateNaissance, tPersonne.lieuNaissance, tPersonne.paysNaissance, tPersonne.adresse1, tPersonne.adresse2, tPersonne.codePostal, tPersonne.ville, tContrat.dateDebut, tContrat.heure, tContrat.coefficient, tContrat.numEmploi, tContrat.numTypeContrat"
    strSQL = strSQL & " FROM tPersonne INNER JOIN tContrat ON tPersonne.numPersonne = tContrat.numPersonne"
    strSQL = strSQL & " WHERE tContrat.numContrat=" & unId
    Set requete = CurrentDb.CreateQueryDef("rDUE", strSQL)
 
    Exit Sub
err_creationrequete:
    If err.Number = 3012 Then
        CurrentDb.QueryDefs.Delete "rDUE"
        Resume 0
    Else
        MsgBox err.Description & " " & err.Number
    End If
 
End Sub

[francishop]

Bonsoir;

Lorsque j'ai mis en ligne ce code j'indiquais :

Code :

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

1
2
3
'On met à jour la table acquéreursPub par les requêtes suppression et ajout
    DoCmd.OpenQuery "qrySup_Word", acViewNormal, acEdit
    DoCmd.OpenQuery "QryAjout_Word", acViewNormal, acEdit

Ce qui mettait à jour la table ou se sert Word.

Par contre ta requête m'inquiètes.

Code :

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

Call creerRequeteDUE(CLng(Nz(Me.numContrat)))

Est elle paramétrée? D'une façon schématique il ne faut pas d'inter-action Requête/Utilisateur.

D'autre part tu ne respectes pas l'ordre communiqué :

Code :

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

1
2
3
4
5
6
7
 
' Modifiez ce chemin en fonction de votre configuration
Const DOC_WORD = "C:\Bases FrancisHop\HopRappel\HopValeurAnniversaire.doc"
 
' Variable pour gérer l'objet Word
On Error GoTo Err_cmdPublipostage_Click
Dim wdApp As Word.Application

Tu inscrits :

Code :

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

1
2
3
4
 Variable pour gérer l'objet Word
    Dim wdApp As Word.Application
    ' Modifiez ce chemin en fonction de votre configuration
    Const DOC_WORD = "E:\toto\DUE.doc"

Mais plus grave :

Code :

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

1
2
3
4
5
6
Exit_cmdPub2007_Click:
        Exit Sub
 
Err_cmdPub2007_Click:
        MsgBox err.Description
        Resume Exit_cmdPub2007_Click

Tu te sers de mes boutons de commandes?

Cordialement.

Ps :Quand tu écris :

Quand je le lance, MailMerge créé une (voire plusieurs, parfois) instance(s) d'access

Ce sont des documents word qui s'ouvrent?

[*.Har(d)t]

Bonsoir;

Lorsque j'ai mis en ligne ce code j'indiquais :

Code :

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

1
2
3
'On met à jour la table acquéreursPub par les requêtes suppression et ajout
    DoCmd.OpenQuery "qrySup_Word", acViewNormal, acEdit
    DoCmd.OpenQuery "QryAjout_Word", acViewNormal, acEdit

Ce qui mettait à jour la table ou se sert Word.

Par contre ta requête m'inquiètes.

Code :

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

Call creerRequeteDUE(CLng(Nz(Me.numContrat)))

Est elle paramétrée? D'une façon schématique il ne faut pas d'inter-action Requête/Utilisateur.

D'autre part tu ne respectes pas l'ordre communiqué :

Code :

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

1
2
3
4
5
6
7
 
' Modifiez ce chemin en fonction de votre configuration
Const DOC_WORD = "C:\Bases FrancisHop\HopRappel\HopValeurAnniversaire.doc"
 
' Variable pour gérer l'objet Word
On Error GoTo Err_cmdPublipostage_Click
Dim wdApp As Word.Application

Tu inscrits :

Code :

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

1
2
3
4
 Variable pour gérer l'objet Word
    Dim wdApp As Word.Application
    ' Modifiez ce chemin en fonction de votre configuration
    Const DOC_WORD = "E:\toto\DUE.doc"

Mais plus grave :

Code :

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

1
2
3
4
5
6
Exit_cmdPub2007_Click:
        Exit Sub
 
Err_cmdPub2007_Click:
        MsgBox err.Description
        Resume Exit_cmdPub2007_Click

Tu te sers de mes boutons de commandes?

Cordialement.

Ps :Quand tu écris : Ce sont des documents word qui s'ouvrent?

Merci de toutes ces remarques, effectivement j'ai pas mal bidouillé le code et je vais revoir le code de départ.

Ma requête est créée à la volée pour récupérer les données à publiposter, qui ne concerne qu'un seul enregistrement en fait.

C'est bien un document Word qui s'ouvre. Ce qui m'embête, c'est qu'une deuxième instance d'Access s'ouvre en même temps (je suppose qu'elle est la conséquence du MailMerge.OpenDataSource) et que je ne sais pas comment refermer celle-ci.

[Heureux-oli]

Publipostage

Tu peux toujours faire un peu de lecture.

[mcdotta]

Hello,


Pas trop suivi les échanges de mails mais pour éviter ces sessions ouvertes lors du publipostage, j'exporte ma query de base en fichier txt délimité et fais la fusion avec ce fichier.

Je n'ai pas eu de problème depuis. En plus, selon les versions de Word les commandes de publipostage au niveau des strings de connection changent.... Avec cette solution, je ne crains plus les différences de version....

Bonne journée