Publipostage VB+Access à Word

Slyders Messages postés 300 Date d'inscription mardi 12 octobre 2004 Statut Membre Dernière intervention 8 janvier 2010 - 23 août 2005 à 09:44
Slyders Messages postés 300 Date d'inscription mardi 12 octobre 2004 Statut Membre Dernière intervention 8 janvier 2010 - 23 août 2005 à 10:03
Alors voila j'ai un petit problème.
J'ai une Base de donnée qui contient des informations sur des enfants, des parents et des données de facturation.

Avec mon programme VB j'exploite et je traite ces données.
Depuis mon programme je voudrais établir un publipostage d'une Requête SQL contenu dans une variable de mon programme.

Comment puis je faire pour relier cette requête a mon document Word qui contient des signet.

Merci d'avance de votre aide.

1 réponse

Slyders Messages postés 300 Date d'inscription mardi 12 octobre 2004 Statut Membre Dernière intervention 8 janvier 2010 2
23 août 2005 à 10:03
reqfact = "SELECT Sum(PAYER.Totalmois) ... nne)=" & txtanne.Text & "))"
Set DB = OpenDatabase(App.Path & "\BD-Garderie.mdb")
Set jeu = DB.OpenRecordset(reqfact)
Set AppWord = CreateObject("Word.Application")


AppWord.ShowMe
AppWord.Visible = True
AppWord.Documents.Open App.Path & "\courrier_garderie.doc"

While jeu.EOF = False

AppWord.ActiveDocument.Bookmarks("NOM").Select
AppWord.Selection.InsertAfter jeu!nomresp
...

Qu'est ce qui ne va pas la dedans ?
0
Rejoignez-nous