5 messages in org.openoffice.fr.progRe: [prog] Publipostage et Open Offic...
FromSent OnAttachments
Ludji ATHENESJul 22, 2005 4:30 am 
MABILLE Bruno SZSIC57-IMLJul 22, 2005 4:33 am 
Laurent GodardJul 22, 2005 4:54 am 
Ludji ATHENESJul 22, 2005 5:06 am 
Thomas CoqueryJul 22, 2005 6:17 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:Re: [prog] Publipostage et Open Office.orgActions...
From:Ludji ATHENES (l.at@tele2.fr)
Date:Jul 22, 2005 5:06:39 am
List:org.openoffice.fr.prog

Merci de ta réponse, je recupère la macro et si je peux je le ferais évoluer
vers VB6 et posterai le code sur le forum

----- Original Message ----- From: MABILLE Bruno SZSIC57-IML To: 'pr@fr.openoffice.org' Sent: Friday, July 22, 2005 1:33 PM Subject: RE: [prog] Publipostage et Open Office.org

Bonjour, Il existe dans la partie documentation du site francophone une macro de
publipostage utilisée en préfecture. Elle est disponible à l'adresse suivante :
http://fr.openoffice.org/Documentation/Macros/indexmac.html Par contre je ne sais pas si elle est compatible avec VB6.

Bon courage.

MABILLE Bruno

-----Message d'origine----- De: Ludji ATHENES [mailto:l.at@tele2.fr] Date: vendredi 22 juillet 2005 13:31 À: pr@fr.openoffice.org Objet: [prog] Publipostage et Open Office.org

Bonjour,

Je suis nouveau sur open office.org et je m'interrese plutôt à la partie
OLE/COM de l'API. Je voudrais piloter OOo via une application écrite en VB6
comme je le fais actuellement avec M$Office Word. Je vous avoue qu'après avoir
lu le SDK de l'API de OOo j'ai pris quelques cachets d'aspirine pour le mal de
crâne mais bon ça va mieux. Dans tout ce que j'ai pu lire dans les forums et
dans l'API, la partie publipostage est un peu pauvre. Malheureusement c'est ce
qui m'interrese le plus.

J'aimerais pouvoir faire comme avec word generer un document (publiposter)
automatiquement sans que l'utilisateur n'ai à intervenir sur OOo. en vb6 le code pour MsWord est à peu près come cela Sub RealiseFusion() Dim Wobj as Object, Source as string Dim Dest as string, LetType as string

Dest = "C:\TEMP\Mailing.doc" LetType="C:\TEMP\Maquette.doc" Source="C:\TEMP\Source.doc" 'fichier de données au format CSV

set Wobj=CreateObject("Word.Application") Wobj.document.open Filename:=LetType, Format:=0 'ouvre le fichier
Lettre type contenant les champs de fusion Wobj.ActiveDocument.Mailmerge.MainDocumenType = 0 ' indique à Word qu'on
veut faire des lettres Wobj.ActiveDocument.MailMerge.OpenDataSource Name:=Source ' Attache la
base de données au document Wobj.ActiveDocument.Mailmerge.Destination = 0 ' Résultat du
publipostage vers un nouveau document Wobj.ActiveDocument.Mailmerge.Execute 'Réalise la fusion

Wobj.ActiveDocment.Save Filename := Dest End Sub

Ma question : Comment faire la même chose avec OOo (v 1.1.4 ou V2) et VB6 ?

Merci par avance de vos réponses.

Ludji ATHENES