Bonjour le Forum,

Je coince sur un problème. Merci pour votre aide ou lumière.
Je réalise des "fiches pour des palettes" par le biais de mailmerge
- ACCESS vers un doc WORD avec des champs de fusion traditionnels - CECI FONCTIONNE
S'il y a 10 entrées, MAILMERGE me fait 10 pages.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
With .ActiveDocument.MailMerge
             .OpenDataSource Name:=CurrentDb.Name, _
                LinkToSource:=True, _
                Connection:="Export_Splitliste_Temp", _
                SQLStatement:=SqlSt
 
             .Execute
             .Destination = wdSendToNewDocument
 
        End With
J'aimerai modifier le mode de sortie. Passer sur un document WORD (dotx) avec des signets
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Set db = CurrentDb
Set rst = db.OpenRecordset(SqlSt, dbOpenDynaset, dbSeeChanges)
 
        While Not rst.EOF 'boucle pour récuperer tous les enregistrements de la table tblLfschPosition
 
            For Each wdbkm In owDoc.Bookmarks
                 owDoc.Bookmarks(wdbkm.Name).Range.Text = rst.Fields(wdbkm)
            Next wdbkm
 
            rst.MoveNext
 
        Wend
Mais... dans mon recordset j'ai plusieurs enregistrement.... tous les enregistrements se placent sur le même BOOKMARK/Signet
Il faudrait que la procédure :
- ajoute une nouvelle page (page type .dotx)
- et continuer la procédure Bookmarks - sur rst.fields
etc...

Est-ce que c'est réalisable avec des SIGNETS ?
Merci