said960
Messages postés8Date d'inscriptionvendredi 9 septembre 2005StatutMembreDernière intervention19 juin 2006
-
31 mai 2006 à 21:06
filec
Messages postés13Date d'inscriptionvendredi 3 septembre 2004StatutMembreDernière intervention 3 octobre 2006
-
1 juin 2006 à 10:23
Voilà, je suis un peu perdu, je voudrais dans une application VB6 sur des
MDB Access faire un publipostage sur les données d'une MSFlexGrid dans un document word avec une entete
et lancer automatiquement le publipostage et l'impression c'est à
dire la fusion d'un document word avec ces données depuis VB6 ... merci de m'aider...
filec
Messages postés13Date d'inscriptionvendredi 3 septembre 2004StatutMembreDernière intervention 3 octobre 2006 1 juin 2006 à 10:23
Bonjour,
Quelques éléments de réponse pour t'aider...
'Créer un document Word sur lequel tu insert des tableaux (visibles ou non visibles à l'impression). Ces tableaux sont numérotés par ordre de 1 à x
Sub Publipostage()
On Error Resume Next
Dim MonDoc As Word.Document
Set MonDoc = GetObject(, "word.Application")
If Err.Number <> 0 Then Err.Clear
Set MonDoc = GetObject("MonFichier Word")
MonDoc.Application.Visible = True
For a = 0 To x 'boucle qui permet de balayer le MsFlexgrid et le tableau Word
(1 boucle simple, voir 2 boucles....)
MonDoc.Tables(1).Rows(1).Cells(1).Range.Text = MsFlexgrid1.Textmatrix(a,0)
Next a
MonDoc.SaveAs Filename:=MonChemin + "........." + ".doc" 'sauvegarde du doc
MonDoc.PrintOut
Set MonDoc = Nothing
ActiveDocument.Saved = False
ActiveDocument.Quit