Discussion :

[tyruso]

Bonjour à tous.

J'ai créer une base de données Access 2013 avec une table du personnel (nom, prénom, etc...)
Je souhaiterais y intégrer une photo différente pour chaque membre.
De plus, je souhaiterais faire du publipostage avec Word 2013 grâce aux données de la base ainsi que la photo s'affiche également automatiquement dans le fichier Word.

Dans Access j'ai réussi à afficher les photos grâce aux pièces jointes mais dans ce cas là, elle ne s'affiche pas dans le publipostage.

Auriez vous une solution?

Merci d'avance

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,

Voici un exemple.

Décompresse le zip dans un répertoire quelconque.
Les images sont à l’extérieur de la BdD. Elles sont logées dans un sous-répertoire « Images » du dossier qui contient la BdD. Leur nom comporte l’id et .jpg.

Pour la confection du document type « PubliImage.docx » (logé dans le répertoire de la BdD), je me suis inspiré de cette Q/R dans la FAQ Word :
http://word.developpez.com/faq/?page...ipostage_image.

Le résultat du publipostage sera dans « tstPubli.docx » (aussi logé dans le répertoire de la BdD).

Tu verras dans la requête rPublipost comment construire le chemin des images.
Cette requête crée la table tPublipost qui sert de base au publipostage.

Pour tester, ouvre la BdD et clique le bouton « Publipostage » dont le code associé au clic est :

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
Option Compare Database
Option Explicit
 
Private Sub Commande0_Click()
 
  Dim wdapp As Word.Application
  Dim NomDoc As String
  Dim CheminDocPerso As String
  Set wdapp = New Word.Application
  CheminDocPerso = CurrentProject.Path & "\tstPubli.docx"
  With wdapp
       .Visible = True
       ' Ouvrir le document type
       .Documents.Open CurrentProject.Path & "\PubliImage.docx"
       .ActiveDocument.MailMerge.OpenDataSource _
            Name:=CurrentDb.Name, _
            LinkToSource:=True, _
            Connection:="Table tPublipost", _
            SQLStatement:="SELECT * FROM [tPublipost]"
       .ActiveDocument.MailMerge.Execute
       .ActiveDocument.SaveAs2 CheminDocPerso
       .Documents.Close
  End With
  ' Fermer et libérer les objets
  wdapp.Quit
  Set wdapp = Nothing
  ' Ouvrir le doc perso
  Shell "C:\WINDOWS\EXPLORER.EXE " & CheminDocPerso
 
End Sub

Le document « tstPubli.docx » s’ouvre.

Sélectionne l’ensemble du document (<CTRL + A>) et enfonce <F9> cela provoquera la mise à jour des champs, tu peux alors l’imprimer : les photos seront présentes.