Récupérer des valeurs fusionnées - VB/VBA/VBS - Programmation
Marsh Posté le 29-07-2015 à 14:39:07
Après plus ample recherche je pense devoir mentionner que j'utilise une feuille excel comme data source lors du publipostage . Du coup je me pose la question si ce n'est pas pour ça qu'il n'identifie pas l'objet DataSource. Mais ça me laisse toujours avec la question : comment puis-je récupérer les valeurs qui ont remplacés mes champs de fusion? J'ai pensé mettre un signet sur les MERGEFIELD et récupéré la valeur de ce dit signet après publipostage mais cette méthode m'affiche l'erreur : " Vous avez tapé plusieurs destinations pour une page, un ligne, une note de bas de page, une note de fin ou un commentaire."
Y a t'il d'autre méthode que celle-ci pour effectuer la tache désiré?
Marsh Posté le 27-07-2015 à 15:00:06
Bonjour à tous!
Comme le titre l'indique j’essaie de récupérer des valeurs de champs de fusion après leur fusion pour les traiter. Ayant chercher un peu avant de venir quémander votre aide j'ai trouver cette fonction :
myVar = ActiveDocument.MailMerge.DataSource.DataFields(n).Value
ce qui donne ça dans mon code
Private Sub appWord_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document)
dateEffet = ActiveDocument.MailMerge.DataSource.DataFields(4).Value
'du code ... plein de code
End sub
j'ai éssayé aussi :
ActiveDocument.MailMerge.DataSource.DataFields("QU_ECHEANCE_DEBUT" ).Value
QU_ECHEANCE_DEBUT etant le nom de mon champ de fusion.
mais à chaque fois je reçois l'erreur : " l'objet demandé n'est pas disponible".
Utiliserais-je mal la fonction?