[Résolu][Calc] Changement de macro affectée à un bouton

[agraeth]

Bonjour,

J'ai une feuille calc avec un bouton.
J'ai assigné manuellement à l'évènement Exécuter l'action de ce bouton la macro "macro1" du "Module1".

Est-il possible depuis la macro "macro1" d'assigner à ce même bouton la macro "macro2" du "Module2" en remplacement de la macro "macro1" ?

Merci de votre aide !

[Dude]

Mme Irma est à la plage mais je soupçonne un problème XY.
Avec autant de messages à ton compteur, tu sais ce qu'il faut faire pour être aidé.

[agraeth]

Salut Dude,

Pas convaincu d'être concerné par le problème XY, mais j'apporte un fichier avec un bouton, deux modules et deux macros.

Le but recherché :
- on clique
- Macro1 est exécutée et se débranche pour être remplacée par Macro2
- on reclique
- Macro2 est exécutée pour ce clic et tous les clics suivants

Le module1 sera a terme supprimé, c'est pourquoi je dois brancher la macro2 du module2

Sans nom 1.ods

[Piaf]

Bonjour
A tester

Code : Tout sélectionner

Sub Macro1(oEv)
Dim oFrame as Object, oDispatch as Object, oForm as Object
Dim evt As New com.sun.star.script.ScriptEventDescriptor
	oFrame = ThisComponent.CurrentController.Frame
	oDispatch = createUnoService("com.sun.star.frame.DispatchHelper")
	msgbox "Macro1 branchée"
	oEv.Source.Model.Label = "Importer"
	oForm = oEv.source.Model.Parent
	evt.ListenerType = "XActionListener"
	evt.EventMethod = "actionPerformed"
	evt.ScriptType = "Script"
	evt.ScriptCode = "vnd.sun.star.script:Standard.Module2.Macro2?language=Basic&location=document"
	oForm.registerScriptEvent(0, evt)
	thisComponent.setModified(True)
	thisComponent.Store
	oDispatch.executeDispatch(oFrame, ".uno:Reload", "", 0, Array())	
End Sub

A+

[agraeth]

Bonjour Piaf,
Et merci de ta participation !

Une erreur apparait à l'appel de de la macro2 :

erreur.PNG

En consultant l'évènement Exécuter l'action du bouton, la macro assignée est:

vnd.sun.star.script:Standard.Module2.Macro2?language=Basic&location=document

En l'affectant manuellement seul Standard.Module2.Macro2 est écrit...

[Dude]

Le plus simple : une 3e macro affectée au bouton

Code : Tout sélectionner

Sub LanceMoi
   if (bTest) then
      Call macro1
   else
      Call macro2
   endif
End sub

bTest est un sémaphore dont la valeur sera changée dans macro1 et qui peut être stockée comme :

• variable globale
• cellule dans le document
• fichier sur le disque

[Piaf]

Re

Avant.png

Après.png

Je ne reproduis pas l'erreur avec ton fichier mis en ligne, ni sous AOO 4.1.5 ni sous LibO 5.4.7.2, donc difficile de te répondre.
A+

[agraeth]

Bonjour,
Et merci à Piaf et Dude !

Le problème vient surement de la version suraménagée de l'administration...
Je clos donc le billet, puisque la solution de Piaf semble fonctionner et que l'alternative de Dude est tout à fait opérationnelle.

Encore merci à vous !