Discussion :

[emma07]

J'ai lancer un publipostage à partir d'un bouton, j'ai mis le code suivant dans la propriété de click du bouton.

'Voici pour la déclaration du code:
Dim wdapp As Word.Application

'Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
.Visible = True

'ouvrir le document
.Documents.Open "Chemincompletdudocumentwordàouvrir"

'Diriger le publipostage vers un nouveau document
.ActiveDocument.MailMerge.Execute
End With

'fermer et libérer les objets
Set wdapp = Nothing


et quand je clique sur mon bouton un message d'erreur me dit : 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.

[brice45]

Bonjour,
ton document Word comporte-t-il des champs de fusion ?

[emma07]

Bonjour,
ton document Word comporte-t-il des champs de fusion ?

c'est à dire ?

[brice45]

ton document Word doit être relié à une base et y figure des champs "gris" qui prendront les valeurs des champs

[emma07]

ton document Word doit être relié à une base et y figure des champs "gris" qui prendront les valeurs des champs

mon document est relié à une base de données mais quand je veux relié mon document à cette base WORD me dit qu'il ne peut pas ouvrir cette source de données .

[brice45]

si tu ne pux pas ouvrir ta source de données à partir de Word c'est de là que vient le problème et pas de ton code VBA qui me parait correct !

[emma07]

si tu ne pux pas ouvrir ta source de données à partir de Word c'est de là que vient le problème et pas de ton code VBA qui me parait correct !

que dois je faire alors ?

[Jahprend]

Perso, j'ai fait la manip inverse, j'ai crée mon fichier word et ensuite je l'ai lier a ma table

[SuperBlaireau]

Bonjour,

J'ai le même problème, voir ce post

Avez-vous trouver une solution ?

Merci

[Alexandre Sahli]

personnellement j'utilise le code suivant pour ouvrir un publipostage avec word et access 2000

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
 
On Error Resume Next ' vérifie si word est ouvert
    Set appWd = GetObject(, "Word.Application")
 
    If Err.Number <> 0 Then 'Word Not running
      Err.Clear   ' Clear Err object in case error occurred.
      'Create a new instance of Word
 
       Set appWd = CreateObject("Word.Application")
      'Create an instance of Word
    Else
            appWd.Activate
   End If
 
 
 
 
    With appWd
        ' ouvrir le document ici me![modele] est un fichier que je choisis
        .Visible = True
        .WindowState = wdWindowStateMaximize
        .Documents.Add Template:=Chr(34) & Me![Modele] & Chr(34)
       ' je fais la distinction s'il s'agit d'un document avec une source ou non
        If .ActiveDocument.MailMerge.State = wdNormalDocument Then
            .ActiveDocument.MailMerge.OpenDataSource Name:=CurrentProject.FullName, Connection:="QUERY R_Publipostage"
        End If
'        .Quit
    End With
    Set appWd = Nothing

peut être que çà peut te donner une piste