Discussion :

[aev24]

Bonjour à tous,
J'ai développé une base de donnée sous ACCESS, et j'utilise des requêtes pour le publipostage sous WORD.

Lorsque je lance le fichier word depuis l'explorateur, une fenêtre s'affiche me demandant l'autorisation d'exécuter une commande SQL - que je valide - et la fusion s'opère bien.

Afin d'automatiser ce système, j'ai créé un formulaire sous ACCESS et je souhaite lancer le fichier word depuis un 'clic' sur un bouton. J'ai alors créé un module VBA sous ACCESS, répondant au clic, lançant WORD et ouvrant le fichier en question.

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
 
'*******************************************************************
Public Sub OuvertureFichierWord(StdDocName As String)
'On Error GoTo Err_OuvertureFichierWord
    Dim oApp        As Object
 
    Dim Répertoire  As String
 
    'répertoire ou se trouvent les fichiers
    Répertoire = CurrentProject.path & "\Modèles de documents"
 
    'Déclaration de l'application WORD
 
    On Error Resume Next
    'Détection de l'application WORD
    Set oApp = GetObject(, "Word.Application")
    'Si Word n'est pas ouvert, une erreur est générée. 
    'Alors création d'une instance de WORD.
    If Err.Number <> 0 Then
        Set oApp = CreateObject("Word.Application")
        Err.Clear           'effacement de l'objet Err
    End If
    oApp.Visible = True
    oApp.ChangeFileOpenDirectory Répertoire
 
    'ouverture du document en ignorant les modifs s'il est ouvert (revert)
    With oApp.Documents
        .Open fileName:=StdDocName, Revert:=True
    End With
 
 
Exit_OuvertureFichierWord:
    Exit Sub
 
End Sub
'*******************************************************************

... le fichier s'ouvre, mais la fusion n'est pas réalisée.
Le résultat est le même qu'en lançant le fichier depuis l'explorateur et en ne validant pas la commande SQL.

Que faire ?

[francishop]

Bonjour et Bienvenue,

Pour aider à te répondre il aurait été bien d'indiquer une partie de ton code. Par déduction tu dois t'arrêter à l'ouverture de ta lettre type:

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
Dim wdApp As Word.Application
 
' Démarrer Word
Set wdApp = CreateObject("Word.Application")
With wdApp
    .Visible = True
 
    ' Ouvrir la lettre type
    .Documents.Open "C:\TonChemin\TaLettreType.Doc"
 
    ' Ce qu'il doit te manquer
    ' Diriger le publispotage vers un nouveau document
    .ActiveDocument.MailMerge.Destination = wdSendToNewDocument
 
    ' Lancer la fusion
    .ActiveDocument.MailMerge.Execute
End With
 
' Fermer et libérer les objets
Set wdApp = Nothing

Heureux-Oli nous a fait un travail remarquable sur le sujet :
http://heureuxoli.developpez.com/publipostage/

Cordialement.

PS : A moins que tu ne fasses ce publipostage à l'aide de l'instruction VB Shell
Ne pas oublier dans les références d'activer Microsoft Word 11.0 Object Library

[aev24]

Bonjour,

Tout d'abord merci pour l'intérêt que tu portes à man problème.

J'ai ajouté la partie "code" (je ne sais pas ajouter une fenêtre "code" dans ce message ...)

Cependant, mon souhait est d'utilser WORD comme outil d'affichage d'un document type, avec les données de l'enregistrement sélectionné sous ACCESS.
Par la suite, l'opérateur lancera l'impression du document depuis la fenêtre WORD (après avoir vérifié la fusion).

L'opérateur devra sélectionner un autre enregistrement sous ACCESS pour poursuivre etc.

Il ne s'agit pas de fusionner xx enregistrements vers une imprmante ou un fichier, mais d'utiliser WORD pour créer un document "type".

A nouveau merci.