bonjour

j'espere que cet exemple pourra t'aider
cette macro pilote un classeur OOo depuis Excel , mais je ne pense pas qu'il y ai une grande différence en VB6 (si ce n'est la substitution des \ par des /)


Sub modificationEnteteClasseur_OpenOffice()
'MichelXld le 28.09.2005
'Testé avec Excel2002 et OOo 2.0
Dim serviceManager As Object
Dim Desktop As Object, Document As Object
Dim Chemin As String, Fichier As String
Dim args()
Dim Feuille As Object, leStyle As Object, Entete As Object, piedPage As Object
Dim oText As Object, Curseur As Object, leChamp As Object

Chemin = "file:///C:\Documents and Settings\michel\excel\OOoClasseur.ods"
Fichier = Application.WorksheetFunction.Substitute(Chemin, "\", "/")

Set serviceManager = CreateObject("com.sun.star.serviceManager")
Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args)

Set Feuille = Document.CurrentController.getActiveSheet
Set leStyle = Document.StyleFamilies.getByName("PageStyles").getByName(Feuille.PageStyle)

'infos dans l'entete
Set Entete = leStyle.RightPageHeaderContent
Set oText = Entete.CenterText
oText.setString ("") 'RAZ entete

Set Curseur = oText.CreateTextCursor()
Curseur.CharWeight = 150 'Gras(100 pour normal)
Curseur.CharPosture = 0 '(italique = 2)
Curseur.CharFontName = "Arial"
Curseur.CharHeight = "12" 'taille caracteres
oText.insertString Curseur, "Les données à insérer", False
'-------------------------------------------------------

'pour le Numero page dans le pied de page
Set piedPage = leStyle.RightPageFooterContent
Set oText = piedPage.CenterText
oText.setString ("") 'RAZ entete
Set Curseur = oText.CreateTextCursor()
Set leChamp = Document.createInstance("com.sun.star.text.TextField.PageNumber")
oText.insertTextContent Curseur, leChamp, False
'-------------------------------------------------------

leStyle.RightPageHeaderContent = Entete
leStyle.RightPageFooterContent = piedPage
End Sub



bon apres midi
michel