Bonjour à tous,
Un petit soucis que j'arrive pas à règler avec tous les tuto et aide sur le forum
D'ACCES vers WORD - une requête de regroupement avec plusieurs nbre X de résultats avec un doc Word, et j'aimerai une page par résultat (Requête)
Du style SAUT de pages après chaque entrée de la requete
Requete : Export_pzt
Doc Word : test.dotx - avec marqueur
------------------
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 Sub Exportword() 'Dim wApp As Word.Application --- c'est quoi le problème Dim chemin As String Dim rs As DAO.Recordset Dim db As DAO.Database Dim sql As String sql = "SELECT * from Export_pzt" Set db = CurrentDb Set rs = db.OpenRecordset(sql) Set wApp = CreateObject("Word.Application") chemin = CurrentProject.Path wApp.Visible = True While Not rs.EOF With wApp .Documents.Open FileName:="Y:\nomdudoc.dotx" .ActiveDocument.Bookmarks("Matchcode").Range.Text = rs.Fields("Matchcode") .ActiveDocument.Bookmarks("PalUnique").Range.Text = rs.Fields("PalUnique") .ActiveDocument.Bookmarks("Bezeichnung").Range.Text = rs.Fields("Bezeichnung") '.ActiveDocument.Bookmarks("Bezeich").Range.Text = rs.Fields("Bezeich") .ActiveDocument.Bookmarks("VersionSplit").Range.Text = rs.Fields("VersionSplit") .ActiveDocument.Bookmarks("Auflage").Range.Text = rs.Fields("Auflage") rs.MoveNext End With Wend rs.Close Set rs = Nothing db.Close Set db = Nothing Set wApp = Nothing End Sub
Partager