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