re
pour faire ce publipostage, dans mon exemple j'ouvre un fichier word
'Sélection de la lettre type utilisée pour le mailing
'ouverture de fichier .doc
' Ouvrir = Application.GetOpenFilename(filefilter:='Lettres type (*.doc),*.doc', Title:='Sélection d'une lettre type')
' If Ouvrir = False Then
' MsgBox 'aucun fichier sélectionné', vbOKOnly + vbCritical, 'fin de procédure '
' Sheets('Accueil').Select
' Exit Sub
' End If
' ThisWorkbook.FollowHyperlink Ouvrir
ThisWorkbook.FollowHyperlink 'rapport.doc'
si tu connais le nom du fichier, c'est la dernière ligne, si tu veux choisir ton fichier, c'est les autres (en commentaire)
A+