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.
... le fichier s'ouvre, mais la fusion n'est pas réalisée.
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 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 ?
Partager