Boubou79
Boubou79, voila mon soucis, je dois effectuer un courrier de publipostage à partir de données (nom, prénom, adresse...) contenu dans un fichier excel.Jusqu'ici pas de soucis je récupére bien mes infos en effectuant un publipostage classique sous Word mais sur chaque lettre généré; je souhaite insérer la photo de la personne concernée. C'est là que je cale, mes photos se trouve dans un répertoire et pour chaque personne concerné, je connais le nom de la photo qui lui est attribué. J'ai d'ailleur rajouté une colonne "nom de photo" dans ma base excel. Comment écrire en VBA les lignes me permettant pour chaque changement d'enregistrement d'aller chercher la dite photo correspondante. Merci de m'aider je suis en panne d'idées.
Sub LancerFusion()
'
' Macro2 Macro
' Macro enregistrée le 10/08/2002 par Boubou
Dim chemin As Variant
'
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
chemin = "C:\Mathieu\Photos Numériques\Anniversaire Mariage 50 ans Parents Didier\" & ActiveDocument.MailMerge.DataSource.DataFields.Item("Nom")
'mes = MsgBox(chemin, vbOKOnly)
Img.Picture = LoadPicture(chemin)
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
chemin = "C:\Mathieu\Photos Numériques\Anniversaire Mariage 50 ans Parents Didier\" & ActiveDocument.MailMerge.DataSource.DataFields.Item("Nom")
End With
.Execute Pause:=False
End With
Windows(1).Activate
End Sub
|