[Résolu][Base] lister ensemble des macros utilisées

[CrazyDams]

Bonjour à toutes et à tous,

A force de créer des macros à tout va dans ma base, je fini par perdre le fil. Du coup, j'aurais souhaité savoir s'il existe un moyen de lister l'ensemble des macros mais surtout de savoir à quel endroit elles sont utilisées.
Par exemple quelque chose comme : Macro1 de la bibliothèque Biblio1 de la base1 est utilisée avec le champ1 du formulaire2 ainsi qu'avec le champ4 du sous-formulaire10 et çà pour l'ensemble des macros de ma base.

Il y a bien outils>macros>OpenOffice Basic... où je trouve l'ensemble de mes bibliothèques avec les macros mais je ne trouve rien qui me disent à quoi elles sont rattachées.

Une solution miracle ?

Merci d'avance pour votre aide.

[martinbrait]

Bonjour CrazyDams,

Bonne idée,
Cela démontre que tu es allé loin avec base.
L'outil dont tu parles est effectivement très intéressant,
mais il doit être entièrement codé, il me semble,
pour répondre à ce niveau de service.

Une fois réalisé, à placer certainement dans les "best-of"
Qui en a le courage ??

[CrazyDams]

Bonjour Martinbrait,

En fait je m'en sentirais bien le courage, le seul souci est que je ne sais pas où trouver certaines informations. Ma seule piste pour le moment est que j'arrive à trouver l'ensemble des modules contenu dans la bibliothèque "Standard" de ma base grâce au code suivant et au plus qu'utile xray :

Code : Tout sélectionner

xray basiclibraries.getbyname("Standard").elementnames

Ensuite, lorsque je sélectionne mon module avec getbyname et toujours xray, j'obtiens le code contenu dans ce module, sans aucune propriété ni rien. Donc pour le moment, je ne sais pas trouver les macros par programmation.

Ce qu'il me faudrait ensuite, c'est l'endroit où est stockée l'information de l'association d'une macro avec un événement d'un contrôle en particulier dans un formulaire. Par exemple, j'ai associé une macro avec l’événement "modifié" d'une zone de liste. Je me disais que peut-être dans les propriétés de cette zone de liste on pouvait trouver quelque chose avec la méthode getproperty, mais je ne sais pas l'utiliser ni même si je suis sur la bonne voie.

Donc en attendant les lumières de quelqu'un de plus compétent que moi en la matière, je continue à creuser

Je viens de trouver une piste intéressante. J'ai écrit le code suivant dans une macro :

Code : Tout sélectionner

xray thiscomponent.currentcontroller.model.events.getbyname("OnStartApp")

Au départ cela m'a affiché "Donnée vide (empty)" et comme je ne savais pas ce que cela ouvrait j'ai tenté d'assigner une macro à l'événement "Démarrer l'application" du menu "personnalisé"

Là j'ai relancé ma macro et... surprise, j'ai obtenu ce qui s'affiche sur l'image jointe, à savoir un "EventType" et un "Script"

Donc il y a du progrès, mais je ne sais pas quoi faire de çà... en plus cela ne concerne que le document dans sa globalité... il faudrait arriver à faire la même chose pour chaque formulaire et chaque contrôle de formulaire...

[Piaf]

Bonsoir

Qui en a le courage ??

Pourquoi pas toi
Un petit exemple des plus simples.

Code : Tout sélectionner

Sub listerEvents
	oDoc = thiscomponent
	oForm = oDoc.DrawPage.Forms(0)
	txt = "Formulaire : " & oForm.Name & Chr(13)
	For i = 0 to oForm.Count -1
		txt = txt & "Contrôle : " & oForm.ControlModels(i).Name & Chr(13)
		oEvent = oForm.getScriptEvents(i)
		For n = 0 To Ubound(oEvent)
			txt = txt & "Type listener : " & oEvent(n).ListenerType & " ;  Méthode : "  & oEvent(n).EventMethod & Chr(13)
			Decoupe = Split(oEvent(n).ScriptCode,"?")(0)
			suivant = Split(decoupe(1),":")(1)
			txt = txt & "Librairie : " & Split(Suivant,".")(0) & " ; Module : " & Split(Suivant,".")(1) & " ; Macro : " & Split(Suivant,".")(2) & chr(13)
		Next n	
	Next i
   msgBox txt
End Sub

Pour tester, tu ouvres le formulaire fAdhs et tu appuies sur le bouton Evenements

[DLE]

Bonjour,

Ayant eu ce problème il y a quelques années, j'ai fait cette petite extension qui liste tous les scripts contenus dans un fichier ODB. Cette extension fonctionne avec AOo 330 et supérieur.
Il faut que la base soit enregistrée, la liste (ListeDesScripts.txt) sera dans le dossier Temp défini dans les options de AOo (Chemins).
Pour l'exécution, vous ouvrez votre fichier ODB, puis
Outils>Macro>Exécuter la macro>MesMacros>ListesDesScripts>a_Formulaire>>Main
....un message est émis à la fin de l'exécution.

Cdlt.

[Hubert Lambert]

Bonjour,

j'ai fait cette petite extension qui liste tous les scripts contenus dans un fichier ODB

Impeccable !

j'aurais souhaité savoir s'il existe un moyen de lister l'ensemble des macros

La méthode "getScriptProvider" du composant de base (thisComponent en général) renvoie une instance du service com.sun.star.script.provider.MasterScriptProvider, qui, via sa méthode "getChildNodes", permet de parcourir récursivement toutes les macros (tous langages confondus) du document. C'est le même service qui est utilisé en interne pour afficher l'arbre des macros dans le gestionnaire de macros.

Cordialement.

[Piaf]

Bonjour

j'ai fait cette petite extension qui liste tous les scripts contenus dans un fichier ODB

A+

[CrazyDams]

Merci à vous tous !!!
exactement ce qu'il me fallait
Je savais bien qu'il y avait du script et du event dans l'air