OVH Cloud OVH Cloud

code pour faire du publipostage

1 réponse
Avatar
elisabeth
bonjour=20
=E7a va?
je voudrais faire du publipostage afin de recuperer les=20
donn=E9es d'ine table de ma base et de presenter une version=20
imprimable sous Word mais sans passer par le publipostage=20
de word
il doit y avoir des fonctions genre mailmerge, etc.. non?
mais je ne sais pas comment =E7a marche
mercci
Voici mon code
Option Compare Database
Function toto1()

Dim doc1 As Word.Document
Set doc1 =3D New Word.Document
Set doc1 =3D Documents.Open("c:\gestion de=20
parc\INGENICA.doc")


doc1.save
toto1 =3D ""
Set doc1 =3D Nothing
End Function

1 réponse

Avatar
Raymond [mvp]
Bonjour.

tu trouveras deux exemple sur la page :
http://access.seneque.free.fr/publipostage.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"elisabeth" a écrit dans le message de
news:071901c48b56$ae51c7e0$
bonjour
ça va?
je voudrais faire du publipostage afin de recuperer les
données d'ine table de ma base et de presenter une version
imprimable sous Word mais sans passer par le publipostage
de word
il doit y avoir des fonctions genre mailmerge, etc.. non?
mais je ne sais pas comment ça marche
mercci
Voici mon code
Option Compare Database
Function toto1()

Dim doc1 As Word.Document
Set doc1 = New Word.Document
Set doc1 = Documents.Open("c:gestion de
parcINGENICA.doc")


doc1.save
toto1 = ""
Set doc1 = Nothing
End Function