call vba apres fusion d'un document word

call vba apres fusion d'un document word - VB/VBA/VBS - Programmation

Marsh Posté le 24-03-2015 à 11:18:19    

Bonjour,
 
Voila le fin fond de mon probleme : j'ai actuellement un model word que je fusionne via un logicielle pour récupérer des données dans une base.Cependant une de ces données n'est pas sous une forme qui me convient .C'est a dire que dans la base on rajoute 21 au debut de la donnée et ;15 a ça fin (me demandez pas pourquoi je suis moi même perplexe) or j'aimerai pouvoir enlever ce "suffixe" et "prefixe" pour avoir sur mon document une valeur utilisable(en gros enlever les 2 1er caractère et les 3 derniers).J'ai essayé d'utiliser les champs de code mais aucune fonction dans celle ci ne me permet de retirer des caractères  et etant novice en vba je n'ai pas réussi a créer une fonction automatique s'activant après la fusion (toutes les méthodes que j'ai pu trouver sur le net ne marchant pas dans mon cas).J'espere avoir été suffisaement clair sur mon soucis.J'echange donc tout conseil/avis/solutions utile contre un cookie.
 
Merci d'avance  :D

Reply

Marsh Posté le 24-03-2015 à 11:18:19   

Reply

Marsh Posté le 24-03-2015 à 11:45:38    

 
           Bonjour,
 
           consulter l'aide VBA de la fonction  Mid  par exemple …
 
           _______________________________________________________
           Je suis Charlie  -  Je suis Bardo
 

Reply

Marsh Posté le 24-03-2015 à 11:55:03    

Bonjour,
 
Je connais deja la fonction le probleme c'est que la donnée que je veux découpé est inséré apres mon code vba et je n'arrive pas a faire fonctionner l'event afterMerge.
 
edit: j'ai essayé cette méthode pour enclencher une action après fusion. Sans grand succes :
 
//Dans thisDocument
 
WithEvents WordApp As Application
Private Sub Document_Open()
    Set WordApp = Application
End Sub
 
//Dans  module class "Application"
 
Private Sub WordApp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document)
    'Action
End Sub


Message édité par narcotiksoul le 24-03-2015 à 14:58:07
Reply

Sujets relatifs:

Leave a Replay

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