Bonjour,
Je voudrais lancer un publipostage depuis vb. Pour cela j'ai mis des signets dans un document word 2000
Mon code est le suivant
Dim w As New Word.Document
w.Application.Visible = True
Do Until Adodc1.Recordset.EOF
Documents.Open ("c:\Mes Documents\Projet_contacts\document.doc")
w.Application.WindowState=wdWindowStateMaximize
Documents("document.doc").Bookmarks("nomsociete").Select
Selection.TypeText Adodc1.Recordset!nomsociete
Documents("document.doc").Bookmarks("adresse1").Select
Selection.TypeText Adodc1.Recordset!adresse1
Documents("document.doc").Bookmarks("codepostal").Select
Selection.TypeText Adodc1.Recordset!codepostal
Documents("document.doc").Bookmarks("ville").Select
Selection.TypeText Adodc1.Recordset!ville
ActiveDocument.PrintPreview 'Lance l'aperçu avant impression
ActiveDocument.Sections.Add 'Insère un saut de page
Adodc1.Recordset.MoveNext 'Passe à l'enregistrement suivant
Loop
End Sub
Le problème est que lorsque je lance la fusion, tous les enregistrements viennent se mettre à l'emplacement de mes signets à la page 1. LEs sauts de page sont insérés mais mes données sont toutes sur la meme page
Il faudrait copier les signets pour les insérer sur toutes les pages, mais comment faire ???
Des idées, merci de m'aider il ne me reste plus que ça pour finir mon projet !!!