Bonjour à vous,
> Est ce qu'il y aurait autre chose à ajouter mise à part :
Sub Publipostage()
Dim monPublipostage As Object
'Service publipostage
monPublipostage = CreateUnoService("com.sun.star.text.MailMerge")
'Nom de la source de donnée
monPublipostage.DataSourceName = "Bibliography"
'Chemin du fichier de fusion
monPublipostage.DocumentURL = convertToURL(thisComponent.URL)
'Paramètre du publipostage
'OK
monPublipostage.CommandType = com.sun.star.sdb.CommandType.TABLE
monPublipostage.Command = "biblio"
'****************************************************************
' Requête SQL
Dim oRowSet As Variant
Dim cmdSQL As String
oRowSet = createUnoService("com.sun.star.sdb.RowSet")
oRowSet.setPropertyValue("DataSourceName", "Bibliography")
oRowSet.CommandType = com.sun.star.sdb.CommandType.COMMAND
cmdSQL = "SELECT * FROM ""biblio"" WHERE ""Year"" <> '2004'"
oRowSet.setPropertyValue("Command", cmdSQL)
oRowSet.execute()
'Liaison Resultset & Publipostage
monPublipostage.ResultSet = oRowSet
'********************************************************************
'Document fusionné en un fichier
monPublipostage.SaveAsSingleFile = True
'Option publipostage par fichier
monPublipostage.OutputType = com.sun.star.text.MailMergeType.FILE
'Sortie en PDF
monPublipostage.SaveFilter = "writer_pdf_export"
'Sortie en ODT
'monPublipostage.SaveFilter = "writer8"
'Chemin du fichier de sortie
monPublipostage.OutputUrl = ConvertToURL(cheminSauvegarde)
'Execute le publipostage
monPublipostage.execute(Array())
monPublipostage.dispose()
MsgBox "Le résultat de la fusion se trouve dans " + cheminSauvegarde
End Sub
Source :
http://www.oooforum.org/forum/viewtopic.phtml?t=34416
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
