J'aurais tendance à penser que le "REM" devant la ligne 9 est de trop, mais je suis à la limite de mes compétences !!! Bon courage Christophe
-----Message d'origine----- De : Anthony Benoist [mailto:[EMAIL PROTECTED] Envoyé : jeudi 15 juin 2006 15:57 À : [email protected] Objet : Re: [users-fr] [Calc] "Enregistrement de macro" et "Recherche de valeur cible" NUSSBAUM Christophe - CETE Lyon/LRA/Direction a écrit : > Pour la macro, essaie de vérifier que ta ligne de commande générée > automatiquement pendant l'enregistrement de la macro n'est pas précédée d'un > "REM". J'ai déjà eu ce pb ... Ce n'est pas le cas là. Deux lignes en code sont présentes dans le basic, l'une qui ouvre la fenêtre "Recherche de valeur cible" et qui est précédé de "REM", ce qui est a priori une bonne chose, et l'autre qui est, je pense, censé effectuer le calcul réellement, .. mais qui ne fait rien). Le problème vient du fait, je pense, que ne sont pas entrés les cases, et la valeur souhaitée, etc nécessaires, étant donné que si je les change lors de l'enregistrement de la macro, les lignes de code restent les mêmes. Mais je ne sais pas où les mettre dans la ligne. Pour info je vous mets le code ici (les deux intéressantes étant les deux dernières): 1 dim document as object 2 dim dispatcher as object 3 rem ---------------------------------------------------------------------- 4 rem get access to the document 5 document = ThisComponent.CurrentController.Frame 6 dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") 7 8 rem ---------------------------------------------------------------------- 9 rem dispatcher.executeDispatch(document, ".uno:GoalSeekDialog", "", 0, Array()) rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:GoalSeek", "", 0, Array()) --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
