[VBA] requete SQL dans un programme VB pour publipostage vers word

requete SQL dans un programme VB pour publipostage vers word [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 13-08-2008 à 21:47:17    

bonjour a tous,  
 
je recherche des informations afin que, a partir d'une base de donnée Access et grâce a une requête SQL, je puisse remplir une feuille Word réservée au publipostage.
 
Mon problème est que je ne sais pas comme intégré ma requête SQL pour remplir le publipostage.
 

Code :
  1. Dim CheminMonFichier As String
  2. Dim cheminDuDocWord As String
  4. Dim mvarDocumentId As Variant
  5. Dim ObjWord As Word.Application
  7. date1 = Month(CDate(ref3)) & "/" & Day(CDate(ref3)) & "/" & Year(CDate(ref3))
  8. cheminDuDocWord = App.Path & "\Cabs.dot"
  9. CheminMonFichier = App.Path & "\Absences.mdb"
  11. textesql = "Select eleves.nom, eleves.prenom, eleves.nomresp, eleves.prenomresp, eleves.adresse, eleves.localite, eleves.cp, eleves.classe, absences.datedep, absences.datefin, absences.duree, absences.justifier, absences.justification from absences inner join eleves on eleves.refeleve = absences.refeleve where absences.datedep = " & date1
  13. Set ObjWord = CreateObject("Word.application" )
  14. Set mvarDocumentId = ObjWord.Documents.Add(cheminDuDocWord, False)
  16. ObjWord.Visible = True
  17. ObjWord.activedocument.mailmerge.MainDocumentType = wdFormLetters
  18. ObjWord.activedocument.mailmerge.OpenDataSource Name:=CheminMonFichier, ConfirmConversions:=False, ReadOnly:=True, LinkToSource:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, SQLstatement:="textesql"
  20. With ObjWord.activedocument.mailmerge
  21. .SuppressBlankLines = True
  22. With .DataSource
  23. .FirstRecord = wdDefaultFirstRecord
  24. .LastRecord = wdDefaultLastRecord
  25. End With
  26. .Execute pause = True
  27. End With
  28.  
  29. mvarDocumentId.Close False
  30. Set ObjWord = Nothing

 
 
Merci par avance pour votre aide !
 
edit : est-ce qu'un placé un objet OLE pourrai faire l'affaire?
 
edit2 : la solution la plus simple est de passer par un fichier séquentielle (.txt ou .ini) et le tour est joué. Je cherchais plutot a intégrer directement la requete entre l'acces a la DB et le publipostage, mais cette solution fait l'affaire en attendant.


Message édité par serial_xp le 17-08-2008 à 02:47:02
Reply

Marsh Posté le 13-08-2008 à 21:47:17   

Reply

Marsh Posté le 14-08-2008 à 18:07:45    

up, personne n'a de solution ni d'idée?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed