Macro pour aller de Libreoffice Writer sur libreoffice Base

Bonjour

une de solutions serait de 

Dans la base

une macro qui ouvre le formulaire dés l'ouverture de la base.

cette macro s’exécutant en ouvrant la base

pour cela avec

Outils personnaliser > ouvrir un document sélectionner la macro nommée ici OpenBaseForm

Dans writer 

réaliser une macro ouvrant la base et  lancée par un bouton.

Les macros

Dans base

Sub OpenBaseForm
' Avec Outils personnaliser > ouvrir un document sélectionner la macro OpenBaseForm
 dim NomFormulaire as Object,maConnexion as Object

   ThisDatabaseDocument.CurrentController.connect("","")
   maConnexion = ThisDatabasedocument.CurrentController.ActiveConnection
   NomFormulaire=OuvrirFormulaire("Name")

' utilise la fonction ouvrirFormulaire poutr ouvrir le formulaire Name
End sub

Function OuvrirFormulaire(NomFormulaire as String ) as Object
Dim NouveauFormulaire as Object

  NouveauFormulaire = ThisDatabaseDocument.FormDocuments.getbyname(NomFormulaire)
  OuvrirFormulaire = NouveauFormulaire.open
end function

Dans writer

Sub OuvreBase
rem chemin de la base
    sURL = "D:\Mes documents\aide OOo\base\BaseOpenFormAuto.odb"
    
oShell = createUNOService("com.sun.star.system.SystemShellExecute")
oShell.execute(sURL, "", 1)

End Sub

mis en texte car la fonction code du forum n'afficha pas bien