Merci Thibault,

Mes connaissances en macros ne vont pas très loin.

J'ai deux formulaires T_Menu et T_Meteo.

Je veux ouvrir T_Meteo en cliquant sur un bouton de T_Menu.

J'ai récupéré la macro dans un exemple ayant la même structure.

Voici l'exemple que j'essaye de transposer:

REM ***** BASIC *****

' ouverture des formulaires

' se fait par appel d'une fonction

Sub onClickOuvrirFmTbClients( oEvent as variant )

OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "FmTbClients")

end sub

Sub onClickOuvrirFmTbRegion( oEvent as variant )

OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "FmTbRegion")

end sub

Sub onClickOuvrirFmTbDestinataires( oEvent as variant )

OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "FmTbDestinataires")

end sub

Sub onClickOuvrirFmTbProduits( oEvent as variant )

OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "FmTbProduits")

end sub

Sub onClickOuvrirFmTbLivraisonProduits( oEvent as variant )

OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "FmTbLivraisonProduits")

end sub

function OpenForm( formContainer as variant, oConnection as variant, sFormName as string) as variant

Dim aProp(1) As New com.sun.star.beans.PropertyValue

aProp(0).Name = "ActiveConnection"

aProp(0).Value = oConnection

aProp(1).Name = "OpenMode"

aProp(1).Value = "open"

OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())

end function

Que faut-il faire?

Cordialement Papy

Thibault Vataire a écrit :