Publipostage avec images et fragmentation
m@rina Messages postés 20271 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 30 mai 2024 - 22 nov. 2023 à 18:05
- Publipostage avec images et fragmentation
- Publipostage mail - Guide
- Images gratuites - Guide
- Images enregistrées - Forum Blender
- Supprimez les composantes rouge et verte de cette image. quel mot apparaît ? ✓ - Forum Photoshop
- Copiez l'image dans un logiciel d'édition d'images ou un outil en ligne comme js paint ou pixlr e. remplissez les cases en suivant le code couleur. des cases supplémentaires vont se remplir automatiquement. que représente le dessin ? ✓ - Forum Windows
3 réponses
18 nov. 2023 à 18:18
Bonjour.
Je te dirai qu'à mon humble avis, le publipostage n'est pas la meilleure façon de fabriquer des fiches techniques ; quels avantages y trouves-tu ?
20 nov. 2023 à 11:02
Bonjour,
J'utilise déjà le publipostage pour créer des étiquettes de rayon à partir d'une base Excel donc je voulais reprendre le même principe pour automatiser les fiches techniques à partir d'une base Excel.
20 nov. 2023 à 17:56
Oui ; mais une simple étiquette et une fiche technique de plusieurs pages avec des images, ce n'est pas du tout comparable !
22 nov. 2023 à 18:05
Bonjour,
Il faut utiliser cette macro :
https://www.faqword.com/index.php/word/publipostage/1075 à laquelle on ajoute la mise à jour des champs pour les images, ce qui donne :
Sub publipostage()
Dim fusion As MailMerge
Dim x As Integer, nb As Integer
Dim chemin As String, nom As String
Set fusion = ActiveDocument.MailMerge
chemin = "D:\Mes documents\" 'mettre ici le chemin complet du dossier où stocker les fichiers sans oublier le \ à la fin
nb = fusion.DataSource.RecordCount
For x = 0 To nb - 1
With fusion
.DataSource.FirstRecord = x + 1
.DataSource.LastRecord = x + 1
.Destination = wdSendToNewDocument
.DataSource.ActiveRecord = x + 1
nom = .DataSource.DataFields("Nom") 'Remplacer Nom" par le champ à utiliser
.Execute
End With
ActiveDocument.Fields.Update 'mett à jour les champs Photos
ActiveDocument.ExportAsFixedFormat OutputFileName:=chemin & nom & ".pdf", ExportFormat:=wdExportFormatPDF, openafterexport:=False
ActiveDocument.Close savechanges:=False
Next
End Sub
Cette macro se lance directement depuis le document principal, il ne faut pas faire la fusion avant. Elle nomme les fichiers avec le champ "Nom". Mais évidemment, on peut choisir ce que l'on veut.
m@rina