Le but : Insérer les images dont les adresses se trouvent dans une base de données Excel.
Dans EXCEL :
Les adresses des images doivent être introduites en tant que liens vers les fichiers "image",
Les séparateurs de noms de répertoires doivent comporter deux "\\" et enfin, les adresses doivent être encadrées de guillemets. Ce qui donne dans la cellule :
Format du chemin de l'image |
" c:\\Mes images\\cocorico.jpg "
|
Dans WORD
1 - Afficher les codes de champs
Barre d'outils "Outils" -> Options -> Affichage -> Valider "Code de champs"
Ou encore par l'utilisation de la combinaison de touches : Alt + F9
2 - Insertion du champ "image"
Insertion -> Champ -> IncludePicture (inclureImage)
Donne :
Champ image |
{ INCLUDEPICTURE \ * MERGEFORMAT }
|
3 - Insertion du champ de fusion
Se placer après le premier espace suivant { INCLUDEPICTURE (normalement suivi de trois espaces...)
Puis -> Barre d'outils "Publipostage" -> Icône "Insérer les champs de fusion" -> sélectionner le champ "Image" de la base de données. Le champ de fusion est inséré dans le précédent, c'est à dire dans le champ Image.
Donne
Champ complet |
{ INCLUDEPICTURE { MERGEFIELD " Champ Image " } \ * MERGEFORMAT }
|
où "Champ Image" est le nom de champ.
4 - Dévalider l'affichage des codes de champs
Le message "Erreur°! Nom du fichier non spécifié." s'affiche.
Normal -> la fusion n'est pas encore réalisée.
La combinaison Alt + F9 convient aussi dans ce sens
5 - Lancer la fusion
6 - Mise à jour des champs
Dans la "lettre type" issue de la fusion, sélectionner tout le Texte (Ctrl + A) et frapper la touche F9. Les champs se mettent à jour, les images apparaissent !
Remplace, par macro, les parties 1 à 6
Dans le document Word, renseigner le nom du champ image
Se placer dans le document principal au point d'insertion de l'image puis lancer la macro.
Sub Macro ()
Dim NomChamp as string
NomChamp = " Champ Image "
InsérerChampImageEtFusion NomChamp
End sub
|
Sub InsérerChampImageEtFusion (NomDuChampImage)
Selection. Fields . Add Range:= Selection. Range , Type:= wdFieldEmpty, _
PreserveFormatting:= False
Selection. TypeText Text:= " INCLUDEPICTURE "
Selection. Fields . Add Range:= Selection. Range , Type:= wdFieldEmpty, _
PreserveFormatting:= False
Selection. TypeText Text:= " MERGEFIELD " & Chr (34 ) & NomDuChampImage & Chr (34 )
With ActiveDocument. MailMerge
. Destination = wdSendToNewDocument
. SuppressBlankLines = True
. Execute Pause:= False
End With
Selection. WholeStory
Selection. Fields . Update
End Sub
|
|