Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Publipostage access97 vers word97

Publipostage access97 vers word97

1 réponse
Avatar
Coyote
Bonjour,=20

Je travaille avec access 97 et word 97.
Je souhaite ouvrir un document word et cr=E9er le lien de=20
publipostage avec access.

Voici la fonction utilis=E9e :=20

Function fMailMerge(PrintDoc)
Dim objWord As Word.Document
Dim stMergeDoc As String

On Error Resume Next
stMergeDoc =3D PrintDoc

Set objWord =3D GetObject(stMergeDoc, "Word.Document")

objWord.Application.Visible =3D True

objWord.MailMerge.OpenDataSource _
Name:=3DCurrentDb.Name, _
LinkToSource:=3DTrue, _
Connection:=3D"TABLE Publipostage", _
SQLStatement:=3D"Select * from [Publipostage]"
objWord.MailMerge.Execute

End Function


par quelle commande puis-je remplacer la ligne
objWord.MailMerge.Execute
afin d'avoir le document mod=E8le ouvert, sans lancer le=20
publipostage automatiquement.=20
Je souhaite laisser =E0 l'utilisateur la possibilit=E9 de=20
compl=E9ter le document avant d'effectuer la fusion.

merci d'avance
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Coyote
pas d'idée pour le point ci-dessous ???

--
@+ Coyote
Note : Pour répondre par email, effacer le '_sup' de l'adresse.
"Coyote" a écrit dans le message de
news: 0ee501c49962$0505afc0$
Bonjour,

Je travaille avec access 97 et word 97.
Je souhaite ouvrir un document word et créer le lien de
publipostage avec access.

Voici la fonction utilisée :

Function fMailMerge(PrintDoc)
Dim objWord As Word.Document
Dim stMergeDoc As String

On Error Resume Next
stMergeDoc = PrintDoc

Set objWord = GetObject(stMergeDoc, "Word.Document")

objWord.Application.Visible = True

objWord.MailMerge.OpenDataSource _
Name:=CurrentDb.Name, _
LinkToSource:=True, _
Connection:="TABLE Publipostage", _
SQLStatement:="Select * from [Publipostage]"
objWord.MailMerge.Execute

End Function


par quelle commande puis-je remplacer la ligne
objWord.MailMerge.Execute
afin d'avoir le document modèle ouvert, sans lancer le
publipostage automatiquement.
Je souhaite laisser à l'utilisateur la possibilité de
compléter le document avant d'effectuer la fusion.

merci d'avance