Discussion :

[Heureux-oli]

Bonjour à tous.

J'ai des templates sur le réseau de l'entreprise. J'aimerais que lorsque l'on ouvre un template 'workgroup' en word, la macro autonew fasse une requête sur une table contenant les données du personnel et que je puisse récupérer ces données pour les utiliser dans la macro et de cette manière, avoir les données propres à chaque individu sur le document qu'il vient d'ouvrir.

Tout ce que j'ai trouvé pour l'instant, c'est du publipostage, où on commence par access et on finit par word.

En fait tout ce que j'ai trouvé commence toujours par Access pour finir en Word.

Moi j'aimerais rester en word du début à la fin et récupérer dans word des données triées venant d'une table.

Merci pour les bonnes âmes.

[cafeine]

Hello,

Tu ne peux pas ouvrir un recordset DAO depuis Word en ajoutant la référence ?

un exemple bateau ...

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
Sub Importer()
 
Dim db As DAO.Database
Dim rec As DAO.Recordset
 
On Error GoTo finRecordset
 
Set db = DAO.OpenDatabase("h:\magnitude.mdb")
 
Set rec = db.OpenRecordset("SELECT File FROM tblFiles", DAO.dbOpenSnapshot)
 
Do
    Selection.TypeText Text:=rec!File & vbCrLf
 
    rec.MoveNext
Loop
 
finRecordset:
rec.Close
db.Close
Set rec = Nothing
Set db = Nothing
End Sub

[Heureux-oli]

Merci Cafeine,

Le bateau était bon et je suis maintenant à quai .