Difficulté avec l'actualisation d'un publipostage

Bonjour,

Je vous explique ma difficulté : j'ai une base Excel d'environ 500 produits, et je veux créer, à l'aide d'un publipostage, des fiches produit.

Sur mon modèle, on retrouve donc différentes informations relatives au produit, et également une image du produit, importée grâce au publipostage.

J'ai créé, grâce aux explications d'une internaute, une macro pour que mon publipostage génère autant de fichiers qu'il y a de produits, en PDF.

Le soucis, est que mon image n'apparaît pas. Pour qu'elle apparaisse, il faut que j'actualise mon Word (Ctrl A, puis F9).

Voici ma macro :

'Publipostage > Word, enregistrement individuel en PDF

Sub TestPublipostPdf()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource

' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource

iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
With oDoc.MailMerge
'Définition du premier et dernier enregistrement
.DataSource.FirstRecord = i
.DataSource.LastRecord = i
' Envoi des données dans un nouveau document
.Destination = wdSendToNewDocument
' Exécution du publipostage
.Execute
' Actualisation de l'enregistrement pour la sauvegarde
.DataSource.ActiveRecord = i

'Utilisation de deux champs pour obtenir le nom du document ; remplacer le chiffre de la colonne
'si c'est pour un envoi sur outlook avec la macro en individuel ou par le n° de col qui servira de nom ) votre pdf
DocName = .DataSource.DataFields(2).Value
'Si vous souhaitez utiliser deux champs pour nommer votre document retirez la quote devant la ligne qui suit et remplacer le n° de colonne
'DocName = DocName & "-" & .DataSource.DataFields(3).Value
Debug.Print DocName; i
End With
' Chemin de Sauvegarde du document publiposté ; modifier le chemin avec les guillemets sans oublier de mettre un \ à la fin
With ActiveDocument
'N'oubliez pas de rajouter un \ après le nom de votre dossier et avant la fermeture des guillemets
.SaveAs "U:\02. FICHES PRODUIT\" & DocName & ".pdf", wdExportFormatPDF
.Close False

End With
Next i
End Sub

Quelqu'un a-t-il une astuce ?

Merci d'avance,

Camille