[calc] macro pour ouvrir une feuille à partir d'un bouton

[stargate]

Bonjour,

j'essaie d'ouvrir une feuille "Menu" en cliquant sur un bouton "btnMenu"


j'ai repris un code sur votre forum, mais il me retourne une erreur



voici le code que j'ai associé à l'évènement boutonde souris enfoncé

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 

sub onClickOuvrir( oEvent as variant ) 
   OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "Menu")  
end sub 

l'erreur qui me retourne en surlignant la ligne
openForm(OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "Menu")

Runtime Error basic
variable objet non paramètrée

une idée, merci

[stargate]

pour les versions c'est OOo 2.0.2 sous WinXP SP2,

j'ai également modifier mon profil.

[poukram]

Bonjour,

Code : Tout sélectionner

sub onClickOuvrir( oEvent as variant ) 
   OpenForm( OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments, OEvent.Source.Model.Parent.ActiveConnection, "Menu")  
end sub 

J'ai eu la meme erreur a l'instant.
Change le OEvent.source. ... en oEvent comme défini au dessus
Sauvegarde, ferme ta page, réouvre et ca roule
++