Discussion :

[zougna]

Bonjour,

J'aimerais exporter certaines données depuis un formulaire Access vers un document Word.
Je comprends et j'utilise le principe du publipostage qui exporte chaque enregistrement vers Word, mais j'aimerais limiter cet export à l'enregistrement en cours dans le formulaire.
J'imagine qu'il y a du code à la fois dans Access et Word mais où le placer ?Quelqu'un sait-il comment sélectionner ça ?
Merci...

[Lou Pitchoun]

Salut,

Si tu as basé ton publipostage sur une requête, tu récupères la valeur de la clé primaire de l'enregistrement courant.

[zougna]

J'en conviens, mais je fais comment ?

[Lou Pitchoun]

Je suppose que tu t'es servi de ce tutoriel écrit par Olivier Lebeau.

Je vais reprendre le code du point I-B-10 :

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
Sub MergeIt()
Dim objWord As Word.Document
Set objWord = GetObject("C:\Local Data\Access\Publipostage\Publipostage.doc", "Word.Document")
' Rend Word visible important puisque la fusion se fait à l'écran.
objWord.Application.Visible = True
' Sélectionne .la base de données Comptoir comme source de données pour la fusion
objWord.MailMerge.OpenDataSource _
		Name:="C:\Local Data\Access\Publipostage\Comptoir.mdb", _
		LinkToSource:=True, _
		Connection:="TABLE Employés", _
		SQLStatement:="SELECT * FROM [Employés]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing
 
End Sub

Tu as à la ligne objWord.MailMerge.OpenDataSource, l'argument SQLStatement qui te permet de spécifier la source de ton publipostage.

Il te suffit de modifier cette ligne comme suit pour obtenir le publipostage d'un seul enregistrement (en l'occurence l'enregistrement courant du formulaire) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
objWord.MailMerge.OpenDataSource _
		Name:="C:\Local Data\Access\Publipostage\Comptoir.mdb", _
		LinkToSource:=True, _
		Connection:="TABLE Employés", _
		SQLStatement:="SELECT * FROM [Employés] WHERE IDEmployé = " & Me.IDemploye

[zougna]

Ca y est, moi y en a compris...
Merci maître!