-----Message d'origine----- De : Essonne Consultants [mailto:esso...@wanadoo.fr] Envoyé : jeudi 6 juillet 2006 13:54 À : pr...@fr.openoffice.org Objet : RE: [prog] Publipostage ...

Bonjour,

Moi aussi je réalise des fusions avec office, après recherches et aides de certaines personnes, voilà comment je fais avec Open Office.

Le problème que je n'ai pas encore résolu est le fait que si j'ai 5 enregistrements dans mon fichiers de données cela me créé 5 courriers et je préférerais 1 courrier avec 5 pages comme dans Word.

1) Dans mon application Access je lance Open Office et la macro macro_Courpubimp par la commande suivante :

Private Sub Open_Office_Click() On Error GoTo Err_Open_Office_Click

Dim stAppName As String

stAppName = "C:\Program Files\OpenOffice.org 2.0\program\swriter.exe macro:///standard.module1.macro_courpubimp" Call Shell(stAppName, 1)

Exit_Open_Office_Click: Exit Sub

Err_Open_Office_Click: MsgBox Err.Description Resume Exit_Open_Office_Click

End Sub

2) Contenu de la macro macro_courpubimp qui lance la macro publipostage :

Sub macro_courpubimp ' Dimensionnement de la valeur de retour de la fonction PubliPostage, ' pour savoir si la fonction s'est bien passée Dim RetourValeur as long

' Lancement de la procédure de publi-postage : attention au chemin du répertoire des modèles d'Openoffice RetourValeur = Publipostage("D:/Logement/Open Office/", "test", "trt")

If RetourValeur then ' Si problème, on informe l'utilisateur MsgBox("Un problème a eu lieu lors de la fonction PubliPostage. Vérifiez votre impression s'il vous plait.") endif

end sub

3) Contenu de la macro publipostage en vert les commentaires:

Function Publipostage(Chemin as string, ArgNomBase As String, ArgNomTable as String)

on error goto ErreurPubliPostage

' Ouverture du modèle et création d'un nouveau document Dim oDesktop As Object Dim oDocument As Object ' Nouveau document créé à partir du modèle dim tUrl as String ' Contiendra le chemin complet du fichier modèle Dim NoArgs() as New com.sun.star.beans.PropertyValue Dim oDocClose

Dim dispatcher as Object Dim parser as Object Dim disp as Object Dim url as new com.sun.star.util.URL Dim oFrame as Object

' Vérification si Chemin possède un "/" à la fin, si non, on en met un. On enlève les espaces devant/derriere. Chemin=trim(Chemin) If Right(Chemin,1) <>"/" then Chemin=Chemin+"/" endif

' Connexion au service, nécessaire pour le fonctionnement de toutes les propriétés et méthodes oDesktop = createUnoService("com.sun.star.frame.Desktop")

' Connexion à la base de données et récupération des enregistrements. ' Celle-ci doit avoir été renseignée dans le menu Outils/Source de données, avec les noms indiqués ' Dans la ligne de commande lançant la macro ("test", "trt" dans mon exemple). ' Le premier terme désigne la base de données, le deuxième la table dans la base de données. dim oRowSet as object ' Equivalent d'un Dynaset, autrement dit ' une "image" dynamique de la table. dim ChaineSQL as String ' Chaine qui contiendra la requête SQL de chargement du RowSet

' Connexion au service de gestion des base de données oRowSet = createUnoService("com.sun.star.sdbc.RowSet")

' Définition de la base de données à atteindre oRowSet.SetPropertyValue("DataSourceName",ArgNomBase)

' Chargement de la chaîne contenant la requête SQL ChaineSQL = "select * from " + ArgNomTable

' Affectation de la requête SQL oRowSet.SetPropertyValue("Command",ChaineSQL)

' Exécution de la requête SQL oRowSet.execute

'Récupération du nom des colonnes dim mData as object ' Contiendra les données du RowSet

dim n as integer

dim NbColonnes as integer ' Le nombre de colonnes du RowSet

mData = oRowSet.getMetaData() NbColonnes= mData.ColumnCount

dim NomColonnes(NbColonnes) As String ' Dimensionnement du tableau des noms de colonnes

if oRowSet.RowCount > 0 then ' S'il existe des lignes dans la table... oRowSet.next() for n=0 to NbColonnes - 1 NomColonnes(n) = mData.getColumnName(n+1) ' On charge le nom des colonnes (1ere ligne) next n endif

'Remplissage des champs Dim oChamps, tfm, InpFieldEnum, InpField As Object dim NomColonneChamps as String

do while not oRowset.isAfterLast ' Teste si Fin de fichier (EOF)

' Ouverture du document de la ligne d'enregistrement for n=0 to NbColonnes-1 if NomColonnes(n)="TYPCOUR" then ' Nom de la colonne dans mon fichier de données contenant le nom du fichier modèle ' Chargement de l'Url menant au fichier modèle, il faudrait modifier le chemin absolu, ' Pour le placer en variale de ligne de commande par exemple tUrl="file:///" + Chemin + oRowSet.getString(n+1) +".ott" endif next n

' Chargement du document oDocument = oDesktop.LoadComponentFromURL(tUrl,"_blank",0,NoArgs())

' Important : on charge dans oChamps tous les champs du modèle, ' Comprendre les champs qui peuvent être modifiés dans le document modèle. oChamps = oDocument.getTextFields

' Création d'une énumération des champs texte du modèle InpFieldEnum = oChamps.createEnumeration()

do while InpFieldEnum.hasMoreElements ' Tant qu'il reste des champs texte pas énumérés InpField = InpFieldEnum.nextElement() if InpField.supportsService("com.sun.star.text.TextField.Database") then tfm = InpField.getTextFieldMaster()

' Chargement du nom du champ texte dans le modèle, pour vérification ensuite avec le nom des colonnes dans la base de données NomColonneChamps = InpField.getTextFieldMaster.getPropertyValue("DataColumnName") for n=0 to NbColonnes-1 ' De la première à la dernière colonne de la base données... if NomColonneChamps = NomColonnes(n) then ' Le nom de la colonne est-il le nom du champ texte ? InpField.Content = oRowSet.getString(n+1) ' Si oui, la valeur du champ est chargée depuis la BDD exit for ' et on sort de la boucle endif next n endif loop

oChamps.Refresh ' Rafraichir tous les champs du document modèle

' oDocument.print(NoArgs()) ' Enlever le ' au début de la ligne si tu veux imprimer directement ' oDocClose=StarDesktop.ActiveFrame.Dispose ' Enlever le ' au début de la ligne si tu veux fermer le document

oRowset.next ' On passe à la ligne suivante loop ' Retour case départ wait 2000 ' Bon, là c'est pas très propre ! J'aurai préféré avoir une ' routine qui attends que l'impression soit terminée. PubliPostage=0

Goto FinPubliPostage

ErreurPubliPostage: PubliPostage = ERR MsgBox ("Erreur" & ERR & "." & chr$(13) & ERROR$)

FinPubliPostage: End Function

4) Voici le contenu de mon fichier de données (Dans le champ TYPCOUR est le nom de mon modèle : Relance):

"TYPCOUR";"Ins_Département";"Ins_Ville";"Ins_Mois";"Ins_Numéro";"Ins_Date";" DateEchéance";"Nom_et_prénom";"Civilité_Demandeur";"Délai_attente";"Ins_Date _Initiale";"Ancienneté_Ville";"Adresse_Demandeur" Relance;91;258;504;634;03/05/2004;03/05/2005;"DURAND Marcel";"Monsieur";"25 mois";03/05/2004;"01/09/2000";"34 ter, allée Jean Rostand" Relance;91;258;504;637;03/05/2004;03/05/2005;"AKANE Vichy";"Mademoiselle";"25 mois";03/05/2004;"01/01/1985";"2, rue de l'Orge" Relance;91;258;504;638;03/05/2004;03/05/2005;"BENAHMED Youcef";"Monsieur";"25 mois";03/05/2004;"01/08/1981";"201, rue Rothenberg"

Je recréé ce fichier par un export avant de lancer ma fusion

5) Déclarer dans OO fichier, nouveau, base de données le fichier de données (base test, table trt dans mon exemple)

En espérant que cela te soit utile, n'hésite pas à me demander des explications si cela n'est pas clair

Je dois basculer une appli d'Access vers Windev 10 donc tes recherches pourrait m'intéresser.

Bon courage,