Discussion :

[lapinours]

Bonjour,
Je cherche le code pour automatiser une liaison de access vers word.
J'ai une requête qui est paramétrée par des choix d'un utilisateur. Je voudrais introduire cette requête dans une lettre (publipostage word).
je voudrais automatiser l'ouverture de word la fusion et le publipostage et l'impression de la lettre.
Merci pour votre aide.

[Heureux-oli]

Le contraire est beaucoup plus facile à faire, tu ouvre word et tu fais ton publipostage. Word possède des assistants qui vont bien.

[stéphane_ais2]

Bonjour,

Sauf besoins spécifiques , je dirais même plus que Heureux-oli, les états sont encore plus simples à réaliser...
Bon alors au cas où :

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
 
Const WDOC = "le chemin du fichier"
Dim wdApp as Word.Application
 
Set wdApp = New Word.Application
With wdApp
.Visible = False
.Documents.Open WDOC
.ActiveDocument.MailMerge.OpenDataSource Name := "le chemin de la base", SQLStatement :="SELECT * FROM [LaRequête]"
.ActiveDocument.MailMerge.Destination = wdSendToPrinter
.ActiveDocument.MailMerge.Execute
.ActiveDocument.Close wdDoNotSaveChanges
End With
wdApp.Quit
Set wdApp = Nothing

Préalablement, il faut préparer le publipostage dans Word avec l'assistant Fusion et publipostage...

Le code masque Word et envoie le résultat du publipostage vers l'imprimante sans sauvegarder le document...

SE

[lapinours]

Merci pour votre aide.
Je n'ai pas réussi à faire ce que je voulais et je me vois contraite d'y renoncer.
C'est vrai qu'un état n'est pas difficile à concevoir. Mais je devais introduire des données provenants d'une requête.Le texte et la mise en page du contrat dans lequel ces données devaient être introduite était plutôt "compliqué". C'est pour ça que j'avais opté pour un document word.

[stéphane_ais2]

Merci pour votre aide.
Le texte et la mise en page du contrat dans lequel ces données devaient être introduite était plutôt "compliqué". C'est pour ça que j'avais opté pour un document word.

C'est souvent la raison (pour ce qui me concerne) pour laquelle je pense d'abord à Word...puis en réfléchissant une peu...on se rend compte que l'état est capable de faire des trucs pas possibles...surtout après avoir travaillé avec le publipostage qui pose de sérieux problèmes de performances...
ça mérite d'y réfléchir...

SE

[micniv]

Bonjour,
pour ma part j'utilise pour la plus grande satifaction de mes utilisateurs le publipostage, lancé depuis Access.
Il faut préalablement que l'utilisateur ait un document type dejà fusionné (ici : sFichModele , en chemin absolu) avec une occurence antérieure de la RQ rtmp_orgCorr :

voici mon code

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
50
51
52
53
54
55
Dim stLinkCriteria As String, strSql As String, sFichModele As String
Dim maBD As DAO.Database
Dim strRQ1 As String
Dim QDF1 As DAO.QueryDef
Dim QDF2 As DAO.QueryDef
Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
Dim wrdApp As Word.Application   'en ref: Microsoft Word Object library 9,0
Dim stDocName As String
'********************************************************
' Sélection du document type
'********************************************************
...
Debug.Print sFichModele
 
'********************************************************
Set maBD = CurrentDb
'********************************************************
Set QDF1 = maBD.QueryDefs("rq_OrgCorr")
'MsgBox "qdf:" & vbCr & qdf.SQL
stLinkCriteria = addCritere
'MsgBox "stLinkCriteria " & vbCr & stLinkCriteria
 
strRQ1 = Left(QDF1.SQL, Len(QDF1.SQL) - 3) & " WHERE " & stLinkCriteria
'on doit retirer un certain nb de car (dont ;) à la& fi de QDF.SQL
'MsgBox " requete avec les criteres: " & vbCr & strRQ1
 
Set rst2 = maBD.OpenRecordset(strRQ1)
If rst2.RecordCount > 0 Then
    If ExistQuery("rtmp_orgCorr") Then maBD.QueryDefs.Delete ("rtmp_orgCorr")
    Set QDF2 = maBD.CreateQueryDef("rtmp_orgCorr", strRQ1)
 
    Set wrdApp = CreateObject("Word.Application")
    With wrdApp
        .Visible = True
 
        'ouvrir le document
        .Documents.Open sFichModele
 
        'diriger le pblg vers un autre document
        .ActiveDocument.MailMerge.Execute
 
    End With
 
Else        ' no record found
    MsgBox "Aucun enregistrement ne correspond aux critères saisis", _
                vbExclamation, "Aucun enregistrement trouvé"
End If
 
    Set rst1 = Nothing
    Set rst2 = Nothing
    Set wrdApp = Nothing
    Set QDF1 = Nothing
    Set QDF2 = Nothing
    Set rst2 = Nothing
    Set maBD = Nothing

Salut,

[lapinours]

merci de votre intérêt.
Je suis prise par le temps (c'est pour un travail de fin d'étude et je dois le rendre mercredi prochain et il n'est pas terminé même en dehors de ce problème), je testerais donc tout cela la semaine prochaine pour un avenant éventuel (si ça marche).
Encore merci à tous