Récupérer des valeurs fusionnées

Récupérer des valeurs fusionnées - VB/VBA/VBS - Programmation

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?

Reply

Marsh Posté le 27-07-2015 à 15:00:06   

Reply

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é?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed