PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → [WinDev 16] - Séparer une fusion de documents word
[WinDev 16] - Séparer une fusion de documents word
Débuté par Omzo, 04 aoû. 2017 11:50 - Aucune réponse
#1
Posté le 04 août 2017 - 11:50
Bonsoir à tous,
Je suis un nouveau développeur WinDev et je suis confronté à un problème et j'ai besoin de votre aide
voici mon problème :
Actuellement, le programme édite des courriers et les fusionne à un seul document.
Je voudrais séparer cette fusion et éditer autant de fichiers word qu'il y ait de courriers
Merci.
Voici le code existant :
Message("Chargement du document..."+fRepEnCours()+"\Modele organisme pension alimentaire.doc..")
word>>Visible=OLEFaux
word>>Documents>>Open(fRepEnCours()+"\Modele .doc",OLEIgnore,OLEVrai)
word>>Visible=OLEFaux

Message("Fusion...")
word>>Visible=OLEFaux //Rendre La fenetre Word Visible
word>>ActiveDocument>>MailMerge>>OpenDataSource(fRepEnCours()+"\"+Nom_data) // Nom du fichier .DAT
word>>Activedocument>>MailMerge>>Destination=0 //WdSendToNewDocument
word>>ActiveDocument>>MailMerge>>SuppressBlankLines = False //Imprimer les lignes vides
//Fusion Proprement dite
word>>Activedocument>>MailMerge>>Execute(OLEFaux)




Message("Sauvegarde du document...")
Fichier_XXXX=fRepEnCours()+"\XXXXXX "+Computername+".DOC"

word>>ActiveDocument>>saveAs(Fichier_organismes) //Sauver le fichier
word>>Documents>>Close(OLEFalse)
word>>Visible=OLEFaux //Rendre La fenetre Word Visible
word>>Documents>>Open(Fichier_organismes,OLEIgnore,OLEIgnore)
word>>Visible=OLEFaux //Rendre La fenetre Word Visible


Merci de vos retours
→ Revenir à WINDEV (précédentes versions)