Probleme publipostage AccessWord !

Question

J'ai un probleme pour faire un publipostage, avec word a partir d'une requete access. Le message d'erreur suivant s'affiche :"impossible de retablir une liaison DDE avec access pour achever la tache en cours".

Voici mon code. Merci d'avance.

Private Sub Commande5_Click()

On Error GoTo erreur
Dim oapp As Word.Application
Dim doc As Document
Dim dbname As String
Dim docname As String

dbname = Application.CurrentDb.Name
docname = "relance.doc"
Set oapp = CreateObject("word.Application")
oapp.Visible = True
Set doc = oapp.Documents.Open(Application.CurrentProject.Path & "" & docname)
With doc.MailMerge
    .OpenDataSource Name:= _
    dbname, Connection:="Query relance"
.Destination = wdSendToNewDocument
.DataSource.FirstRecord = 1
.DataSource.LastRecord = 3
.Execute
End With

oapp.Quit savechanges:=False
Exit Sub

erreur:
MsgBox Err.Description
Exit Sub
End Sub

cs_boubou79 · Answer

Boubou79[font=Times New Roman]
salut j'ai le même message d'erreur que toi mais en essayant un publipostage Word avec une base Excel. sit tu as trouvé une solution pourrais tu m'en faire part s'il te plait.
Merci d'avance

BasicInstinct · Answer

j'ai le mm probleme. une solution a &#233;t&#233; trouv&#233; ?

 BasicInstinct

Probleme publipostage Access>>Word !

2 réponses

Discussions similaires