La modération vous a écrit: Nous avons supprimé les termes inutiles dans le titre de votre question
Bonjour
Est-il possible, au lancement de Libre Office, de provoquer l'ouverture automatique d'un formulaire d'une BD ?
Merci d'avance
Modérateur : Vilains modOOs
La modération vous a écrit: Nous avons supprimé les termes inutiles dans le titre de votre question
Code : Tout sélectionner
global oConnexion as object
sub PysOuvrirForm()
dim oForms as object, oForm as object
dim ptFichier(2) as new com.sun.star.beans.PropertyValue
oConnexion = ConnecterSource
oForms = oConnexion.Parent.DataBaseDocument.FormDocuments
ptFichier(0).Name = "ActiveConnection"
ptFichier(0).Value = oConnexion
ptFichier(1).Name = "OpenMode"
ptFichier(1).Value = "open"
oForm = oForms.loadComponentFromURL("biblio", "", 0, ptFichier())
oForm.CurrentController.Frame.ContainerWindow.toFront
end sub
Function ConnecterSource()
Dim sNomSource As String, sLogin As String, sPassword As String
Dim oSource As Object, oDbContext As Object
sNomSource = "Bibliography"
oDbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oSource = oDbContext.getByName(sNomSource)
sLogin = ""
sPassword = ""
oConnexion = oSource.getConnection(sLogin, sPassword)
if IsNull(oConnexion) then
MsgBox("Connexion impossible", 16)
Stop
end if
ConnecterSource = oConnexion
End Function
Il faut également autoriser les macros dans Outils▸Options▸OpenOffice▸Sécuritéjjber a écrit : Il faut naturellement que la macro figure dans la librairie Standard de Mes macros (ou dans une autre librairie chargée).