2 messages in org.openoffice.fr.prog[prog] remplacer Worksheet_Activate d...
FromSent OnAttachments
oo...@volcar.orgJul 6, 2006 3:05 am 
Frédéric BAGNOLJul 9, 2006 2:57 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[prog] remplacer Worksheet_Activate d'ExcelActions...
From:Frédéric BAGNOL (rd-c@mazet.fr)
Date:Jul 9, 2006 2:57:50 am
List:org.openoffice.fr.prog

Bonjour,

En fait, la fonction Worksheet_Activate() se déclenche à chaque fois qu'on change de feuille. C'est ce comportement que j'essaye de retrouver....

Quelqu'un peut essayer mon bout de code pour voir si ca plante aussi chez lui ?

Merci !!

Bonjour, Voici une idée :

oSheet = ThisComponent.getSheets().geByName("Feuille2") ThisComponent.getCurrentController().setActiveSheet(oSheet)

Bonjour,

J'essaye de trouver une méthode pour remplacer la fonction Worksheet_Activate() d'Excel.

J'ai d'abord utilisé la méthode décrite dans le document "Porting Excel/VBA to Calc/StarBasic" Elle met un listner sur "com.sun.star.beans.XPropertyChangeListener" Ca marche mais dès que l'on fait un apercu avant impression, le listner est perdu. Pas très utilisable donc.

J'ai trouvé une deuxième méthode sur OOoForum.org dont le code est ci-dessous. Ca fonctionne aussi, mais dès que l'on sort de l'aperçu avant impression c'est carrement OOo qui se plante. Je suis en 00o2.0.3Rc7 sous Windows XP.

J'ai deux questions : - Le plantage est connu ? - Y'a une autre méthode pour remplacer Worksheet_Activate() ?

Merci D'avance.

Extrait du code :

Sub add_Listener ' get the model oDoc = thisComponent ' get the controller oView = oDoc.getCurrentController() ' create the listener oListener = CreateUnoListener ("XList_", "com.sun.star.sheet.XActivationEventListener") ' add the listener to controller oView.addActivationEventListener (oListener) msgBox "XActivationEventListener added" End Sub

Sub XList_activeSpreadsheetChanged ( oEvento ) ' get the event object oSheet = oEvento.ActiveSheet sSheetName = oSheet.getName() msgBox (sSheetName, 176, "Active Sheet") End Sub

Ets Louis MAZET Holding Service Informatique Frédéric BAGNOL P Sauvez un arbre... n'imprimez ce mail que si cela vous est indispensable !

Francois Gatto