Salut,
Ce post est à cheval entre le VBA Acess et le VBA Office mais comme le source est dans Access je le poste ici.
J'ai crée un logiciel de CRM sous access à partir duquel je dois lancer une impression d'étiquettes.
J'ai créé un document de fusion sous Word qui puise ses données dans la base access et sur la requête qui va bien.
J'utilise le code suivant pour lancer la fusion :
Malheureusement, lors de l'exécution, j'ai le message d'erreur :
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 '*************************************** Private Sub cmdReport_Click() '*************************************** 'On Error GoTo Err_cmdPreview_Click Call prepSQLQ Dim wdapp As word.Application 'Démarrer Word Set wdapp = CreateObject("Word.application") With wdapp .Visible = True 'ouvrir le document .Documents.Open cstWordTemplate 'Diriger le publipostage vers un nouveau document .ActiveDocument.MailMerge.Execute End With 'fermer et libérer les objets Set wdapp = Nothing Exit_cmdPreview_Click: Exit Sub Err_cmdPreview_Click: MsgBox Err.Description Resume Exit_cmdPreview_Click End Sub
Erreur d'exécution '4605'
Cette méthode ou propriété n'est pas disponible car le document n'est pas un document principal de fusion.
Or, à moins d'avoir fait une mauvaise manipulation (plusieurs fois) s'en est un.
Quelqu'un pourrait-il m'aider ?
D'avance merci
Laurent Jordi
http://www.ezlogic.mc
http://www.laurentjordi.net
P.S. Petit bug du forum : Access ne peut être utilisé dans le titre car il y a 2c et 2s et c'est interdit par l'interface...
Message : Le titre de votre discussion ne doit pas comporter plus de 2 caractères identiques consécutifs.
Partager