Alors voilà, dans le cadre d'un projet que je dois effectuer pour mon rapport de stage (je suis en BTS CIG en alternance) j'essaye de construire un petit planning, j'ai avancé depuis les quelques messages postés sur le forum et les recherches que j'y ai effectué. Cependant je reste encore bloqué sur certains points, dont celui-ci :
Mais avant tout, le problème traité ici est très lié avec mon deuxième problème (c'est la finalité du premier en quelques sortes), mais je vais ouvrir un autre fil pour celui-ci car ils sont tout de même différents : https://forum.openoffice.org/fr/forum/v ... =8&t=55907
Pour en revenir à mon premier problème, il s'agit en fait d'ouvrir un formulaire depuis un classeur, alors après quelques recherches, j'ai vu que certains avaient eu le même problème que moi, je suis tombé sur ce code (qui a été repris ensuite sur pas mal de fils équivalent mais je n'arrive malheureusement pas à le faire fonctionner)
Code : Tout sélectionner
Sub OuvreFormulaire( oEvent as variant )
Dim oform as Object
oform=OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "FDossier")
End Sub
Code : Tout sélectionner
Function OpenForm( formContainer as variant, oConnection as variant, sFormName as string, optional strMode as string ) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
dim openMode as string
if ismissing( strMode ) then
openMode = "open"
else
openMode = strMode
endif
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = strMode
OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
End Function
En cherchant encore, je suis tombé sur ce code
Code : Tout sélectionner
Sub OuvreBDD
dim Args()
dim oDesktop as object
dim oDoc as object
dim cURL as string
oDesktop = createUnoService( "com.sun.star.frame.Desktop" )
cURL = ConvertToURL( "Z:/RapportdeStage/Tests/BDD-Planning_TEST.odb" )
if FileExists (cUrl) then
oDoc = oDesktop.loadComponentFromURL(cURL , "_blank", 0, args() )
end if
End Sub
Evidemment le classeur et la base de données sont joints
Recherches effectuées sur le sujet : - https://forum.openoffice.org/fr/forum/v ... 7&t=15346#
Merci d'avance à tout ceux qui prendront le temps de se pencher sur le problème
Bonne journée/ou soirée à tous