Mon amie à créé une fonction personalisée permettant d'obtenir le nom d'une feuille en fonction de sa position dans le classeur.
Voici le code :
Code : Tout sélectionner
REM ***** BASIC *****
'Fonction NomFeuille
'Auteur : Jeff & Larrassac
'Mes remerciements au forum officiel OOo : http://user.services.openoffice.org/fr/forum/index.php
'Mes remerciements au Club des développeurs français : http://www.developpez.net/forums/
Function NomFeuille(position as integer)
Dim oDoc As Object
On error goto Erreurs 'contrôle si le numéro de feuille existe
oDoc=ThisComponent
NomFeuille = oDoc.Sheets(position-1).Name
Erreurs: 'Retourne #NA si le numéro de feuille est inexistant
if position < 1 or position > oDoc.Sheets.count then
NomFeuille = "#NA"
Exit Function
Endif
End Function
J'ai parcouru la recherche, notamment sur les listeners (http://user.services.openoffice.org/fr/ ... =7405#7405 par ex), et j'en reviens avec une interrogation :
- faut-il un listener qui "écoute" le classeur (en cas d'ajout de feuille) + un listener par feuille (en cas de feuille renommée), et comment insérer ce(s) listener(s) dans la fonction, si bien évidemment le listener est la solution...
J'ai tenté naïvement de rajouter une fonction Now dans la macro puisque c'est ainsi que l'on contourne actuellement le problème par formule, sans plus de succès.
Merci d'avance pour vos pistes