Macro excel vers openoffice

titilou -  
 titiloutiti -
Bonjour à tous,

C'est ma première sur le forum, je lis souvent vos remarques qui sont tres utiles
par contre cette fois, je n'ais rien trouvé pouvant repondre à ma question

pour mon boulot, j'ai crée sur une flle excel avec plusieurs macros
permettant aux utilisateurs (opérateur) d'avoir une checklist de point de controle.

Fonctionalité :
l'objectif est de cacher les points de controle une fois effectués pour le suivie (par un clic)
et un boutton reset pour revenir dans la situation de base
Methode :
supperposition de 2 blocs avec un jeu de 1er plan et arrière plan pour le cacher

Problème :
fautes de d'argent je suis obligé de déployer mon pense-bete sur openoffice
et cela ne fonctionne plus
je crée, j'enregistre la macro et une fois affecté plus rien... rien rien ne se passe

Que faire ?????

merci pour votre aide et vos reponse
Thierry
Configuration: Windows XP Internet Explorer 7.0

1 réponse

  1. UsulArrakis Messages postés 7683 Statut Contributeur 3 196
     
    salut
    le langage n'est pas le même pour les macros donc il faut réécrire ta macro en langage basic d'OOo
    voir ce site pour avoir de l'aide :
    https://forum.openoffice.org/fr/forum/index.php
    0
    1. titiloutiti
       
      salut merci de ta réponse

      mais je ne m'en sort pas et pourtant il n'y a rien de compliqué dans ce que je veux faire
      j'ai cherché mais aucun cas similaire au mien
      une précision : les macros je les exécutes en enregistrement, je ne sais pas les écrire
      je ne comprends pas grand chose à ce qu'il y a d'écrit ci dessous (j'ai des lacunes)

      SCRIPT
      REM ***** BASIC *****


      sub Main
      rem ----------------------------------------------------------------------
      rem define variables
      dim document as object
      dim dispatcher as object
      rem ----------------------------------------------------------------------
      rem get access to the document
      document = ThisComponent.CurrentController.Frame
      dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

      rem ----------------------------------------------------------------------
      rem dispatcher.executeDispatch(document, ".uno:BringToFront", "", 0, Array())


      end sub


      sub Main2
      rem ----------------------------------------------------------------------
      rem define variables
      dim document as object
      dim dispatcher as object
      rem ----------------------------------------------------------------------
      rem get access to the document
      document = ThisComponent.CurrentController.Frame
      dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

      rem ----------------------------------------------------------------------
      rem dispatcher.executeDispatch(document, ".uno:SendToBack", "", 0, Array())


      end sub

      ce que je voudrais et que j'ai énormément de mal à faire on peut meme dire que je n'arrive pas à faire

      J'ai 2 images : je clic sur le bouton1 la macro fait passé l'image 1 devant
      je clic sur le bouton 2 l'image 1 passe derrière
      (petit confort esthétique les image se déselectionne)

      merci pour ton aide et le temps que tu m'accordes
      Thierry
      0