Sauriez vous m'indiquer,comment lancer une fusion de 2 documents word a partir de windev

Je m'explique:

j'ai
-->un fichier contenant des noms et des adresses
-->un fichier contenant une lettre type de refus de candidature

Je souhaite fusionner les deux afin de les publiposter par la suite,je pense que la fonction "LanceAppliAssociée" me permet cela,cependant je ne connais pas le paramètre qui permet de lancer la fusion

LanceAppliAssociée("C:\Mes Projets\TM Nouveau\Courrier\ANUL_70B.doc",???)

UP

Une voie mais aussi une autre en OLE...

Pour le LanceAppli, j'ai pas trouvé.

Merci

J'ai utilisé ce bout de code qui marche bien.

//Création de l'objet OLE
OWord est un objet OLE dynamique
OWord=allouer un objet OLE "Word.Application"
OWord>>visible=OLEVrai
OWord>>Documents>>Open(fRepEnCours()+"\LeContrat.doc",OLEFaux,OLEFaux)

//Préparation du publipostage
OWord>>ActiveDocument>>MailMerge>>Destination=0
// Fusionne le document
OWord>>ActiveDocument>>MailMerge>>execute(OLEFaux)


Cependant je ne comprends pas bien les 2 dernières lignes:
OWord>>ActiveDocument>>MailMerge>>Destination=0
// Fusionne le document
OWord>>ActiveDocument>>MailMerge>>execute(OLEfaux)

UP

Personne pour m'aider?

UP

UP!!!!

Bonjour Seb,

je vous invite à utiliser la classe word livrer avec windev
créer un modele de lettre avec word en utilisant les mot clés nécessaires dans le document en les préfixant par exemple de : @
exemple
Citation :

enregistrer ce modele
dans une boucle qui va parcourir les elements de votre publipostage

Ouvrer le document modele via la classe word
utiliser la méthode remplacer de la classe pour remplacer les mots clé un par un par les valeurs voulues
Imprimer ou envoyer votre document Word
fermer le document sans l'enregistrer
Fin de la boucle
liberer word

Merci beaucoup de ces conseils précieux,c'est très utile cependant j'ai un souci:
Pour essayer cela j'ai fait un petit exemple ou j'essaie de remplacer "@Nom" par "Sébastien" dans le fichier "Destinataires.doc"

OWorda>>Documents>>open("C:\Mes Projets\TM Nouveau\Courrier\Destinataires")
OWorda>>find>>execute("@Nom",OLEFaux,OLEFaux,OLEFaux,OLEFaux,OLEFaux,OLEVrai,1,OLEFaux,"Sébastien",OLEFaux)


Le fichier s'ouvre bien mais j'ai une erreur d'automation systématique:

"Vous accedez au membre Automation find. erreur 80020006 Nom inconnu..."

Je suis débutant,desolé,c'est peut etre une erreur a la con mais je ne vois pas :-/

Je précise que j'ai Word 2002,peut etre cela a un rapport.

J'ai vu que certaines versions de Word plantaient avec l'OLE.

Bonjour Seb,

Voir plutôt:

Bonjour a tous et merci Dr Charly pour le code.
Je m'en suis inspiré et voila ce que j'ai écrit:


OWorda>>Documents>>open("C:\Mes Projets\TM Nouveau\Courrier\Destinataires")
sChRecherche est une chaîne = "@Date"
sChRemplace est une chaîne = "2 aout 2005"
OWorda>>Find>>Execute(sChRecherche,Faux,Vrai,Faux,Faux,Faux,Vrai,1,Faux,sChRemplace,2)


Et je récupère une nouvelle erreur :


"Erreur à la ligne 55 du traitement Clic sur bt_lettre_mail.
Vous accédez au membre Automation Find.
Erreur 80020006, Nom inconnu"

Apparamment il ne trouve pas la chaine que je lui fais chercher.

Pourtant mon fichier contient bien les enregistrements nécessaires.

non il ne retrouve pas la méthode Find...


Essaie Remplace au lieu de find.

sinon une recherceh sur msdn.microsoft.com s'impose

J'ai essayé la méthode find,findreplace,remplace,replace,rien ne fonctionne...

Je continue mes recherches

Enfin ca marche!
Je réussis a faire la recherche et a remplacer le texte.
Mon problème est donc résolu mais je laisse le topic ouvert pour la suite

Merci de vos conseils Manu/ R&B/ Dr Charly

Voila mon code

OWorda>>Documents>>open("C:\Mes Projets\TM Nouveau\Courrier\Destinataires")
OWorda>>selection>>Find>>Execute("@Date",OLEIgnore,OLEIgnore,OLEIgnore,OLEIgnore,OLEIgnore,OLEIgnore,1,OLEIgnore,"2 aout 2005",1)