Discussion :

[grenet]

Bonjour,

J'ai un petit problème depuis mon passage de Access 2002 à 2003.
J'ai le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Dim stDocName As String
    DoCmd.SetWarnings False 'suppression message
    stDocName = "Courrier Requête"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    DoCmd.SetWarnings True 'annule suppression message
    Set wrdapp = CreateObject("Word.Application")
    Set wrdDoc = wrdapp.Documents.Open("M:\Antoine-renet\Contacts\Copie de fax 2.doc")
    wrdapp.Visible = True
    'fermer et libérer les objets
    Set wdapp = Nothing

et il fonctionnait bien sur Access 2002, mais avec Access 2003 le publipostage ne se fait pas.
Pourtant si j'ouvre le fichier Word manuellement le publipostage se fait !!

Quel est le problème ?

[Lou Pitchoun]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Set wrdapp = CreateObject("Word.Application")
    wrdapp.Documents.Open("M:\Antoine-renet\Contacts\Copie de fax 2.doc")
    wrdapp.Visible = True
    wrdapp.ActiveDocument.MailMerge.Execute
    'fermer et libérer les objets
    Set wdapp = Nothing

[grenet]

merci de ta réponse mais cela ne fonctionne pas j'ai le message suivant:

Cette méthode n'est pas disponible car le document n'est pas un document principal de fusion

ça veut dire quoi ? il y a t-il un autre moyen ?

[Lou Pitchoun]

Cela signifierai que ton document n'est pas un document de fusion : c'ets à dire pour recevoir des données

Regarde si ce tutoriel peut t'aider.

[grenet]

J'ai trouvé une petite solution avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim wrdapp As Word.Document
Set wrdapp = GetObject("M:\Antoine\Contacts\fax.doc", "Word.Document")
wrdapp.Application.Visible = True
Set wrdapp = Nothing

Mais à l'ouverture du document word,j'ai le message qui me demande si je veux executer le publipostage, il y a t-il un moyen de supprimer se message et bien sur, d'execuetr le publipostage.