FORUM WINDEV

Bjr à tous.
Dans une fiche tache ou placer un code d'exportation des données, une procédure qui doit effectuer les remplacements des données. Mon application doit faire du publipostage HF vers document Word.

Voici le code d'exportation.
//Exportation des données
i est un entier
n est un entier = 2
POUR i=1 A TableOccurrence(Table_Client_HF)

//On ouvre un modele du document
wd>>Documents>>Open(fRepEnCours()+"\Modele.doc")

//Sauvegarde du modele en cour maintenant
wd>>ActiveDocument>>SaveAs(fRepEnCours()+...
"[Lettre de mission à "+Table_Client_HF.nom_dirigeant[i]+ ".doc")

//Ligne suivante
n++
FIN

Voici le code procedure de remplacement.
PROCEDURE RemplaceTexte(wd, TexteOrigine, TexteRemplacement)
i est un entier

//Recherche le texte à remplacer
wd>>Selection>>Find>>execute(...
TexteOrigine,... // FindText

OLEFaux,... // MatchCase
OLEFaux,... // MatchWholeWord
OLEFaux,... // MatchWildcards
OLEFaux,... // MatchSoundsLike
OLEFaux,... // MatchAllWordForms
OLEFaux,... // Forward
1,... // Wrap
OLEFaux,... // Format
2) // Replace

//on lance le remplacement
RemplaceTexte(wd, "@NOM_COMMERCIAL",Table_Client_HF.nom_commercial[i])
RemplaceTexte(wd, "@ADRESSE ", Table_Client_HF.adress[i])
RemplaceTexte(wd, "@BOITE_POSTALE",Table_Client_HF.boite_postale[i])
RemplaceTexte(wd, "@VILLE ", Table_Client_HF.ville[i])
RemplaceTexte(wd, "@NOMDIRIGEANT", Table_Client_HF.nom_dirigeant[i])
RemplaceTexte(wd, "@QUALIFICATION", Table_Client_HF.qualification_dirigeant[i])
RemplaceTexte(wd, "@CONVENTION ", Table_Client_HF.nom_convention[i])

QUAND EXCEPTION
Erreur(ExceptionInfo())
RETOUR

FIN

wd>>ActiveDocument>>PrinOut()

Cordialement.
James.

Bonjour James,

as-tu trouvé une solution à ton problème ?
et ça donne quoi ?

Merci d'avance.