Xynder59
Messages postés48Date d'inscriptionlundi 13 octobre 2003StatutMembreDernière intervention13 septembre 2007
-
20 juil. 2007 à 15:26
Xynder59
Messages postés48Date d'inscriptionlundi 13 octobre 2003StatutMembreDernière intervention13 septembre 2007
-
24 juil. 2007 à 09:03
Bonjour, j'aimerais générer à travers ma base access une fonction qui me permettrait de faire un publispostage vers word
exemple dans ma base access j'ai une liste de personne avec leur fonction
ma fonction devra envoyer un courrier au format word a toutes ces personnes en fonction de critères
je suis parti sur un code dans ce genre là mais bon....
Set MonWd = CreateObject("Word.Application")
'Ouverture d'un document présent dans le dossier de l'application
MonWd.Documents.Open "C:\Documents and Settings\yohan\Bureau\nous.doc"
Set rst = New ADODB.Recordset
rst.Open "SELECT nom, fonction from mabase order by nom", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveFirst
While Not rst.EOF
'Positionnement dans le document sur le signet Qui et Fonct
'Saisie du contenu de la textbox dans le document Word
MonWd.ActiveDocument.Bookmarks("Qui").Select
MonWd.Selection.InsertAfter rst.Fields(0)
'MonWd.ActiveDocument.Bookmarks("Fonct").Select
'MonWd.Selection.InsertAfter rst.Fields(1)
'Fermeture du document et de Word
'MonWd.ActiveDocument.Close False
rst.MoveNext
Wend
MonWd.Visible = True
rst.Close
je sais c un peu complexe mais bon