Bonjour, Désolée d'apprendre que mes messages font "planter" certains logiciels de messagerie.
Pour en revenir à l'enregistreur, j'ai essayé au début mais à part des opérations simples et sans paramètres je ne m'ensos pas. Exemple le copier coller entre deux classeurs s'enregistre (voir code ci-dessous) mais ne s'execute même pas. Donc tant pis je continue à chercher et à embéter le monde 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 ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "ToPoint" args1(0).Value = "$G$50:$G$82" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) end sub Merci quand même Claude > From: fabs....@wanadoo.fr > To: prog@fr.openoffice.org > Date: Fri, 13 Nov 2009 14:55:18 +0400 > Subject: Re: [prog] Question de méthode > > > > c c a écrit : > > > Bonjour, > > Bonjour, > > > > Je me suis lancée dans la conversion de macros MsOffice en OO et grâce > > > aux exemples trouvés sur le Net et surtout à cette liste, je progresse > > > relativement bien. > > > > > > Mais il doit me manquer une certaine logique car lorsque je cherche dans > > > l'aide OO je trouve raremment ce que je voudrais. Je m'explique. J'ai eu > > > quelques soucis avec le "StoresUrl" et Bernard Marcelly m'a gentiment > > > répondu que "La doc de l'API indique que storeAsURL (et storeToURL) peut > > > déclencher une erreur d'entrée-sortie com::sun::star::io::IOException.". > > > > > > Comme j'avais aussi un problème pour comprendre toutes les propriétés que > > > l'on peut passer au soreasurl comme par exemple les valeurs possibles de > > > format, d'attribut etc... , j'ai à nouveau cherché "storeasurl" en me > > > disant que je n'avais pas vu l'indication de l'erreur d'entrée-sortie". > > > Mais je ne dois pas chercher comme il faudrait car je n'ai pas trouvé. > > Je vais peut-être me faire taper sur les doigts, mais personnellement, pour > beaucoup d'actions, je préfère souvent le dispatcher (l'enregistreur de > macro) > à l'API. J'ai moins de problèmes et c'est plus simple, même si on ne connait > pas toujours les arguments possibles. > Je l'utilise en particulier pour ouvrir un nouveau document, écrire du texte, > etc... et je viens de tester avec "enregistrer", et "enregistrer sous", ça > marche et ça me donne les codes respectifs suivants (j'ai enlever les > remarques): > > sub Enregistrer > dim document as object > dim dispatcher as object > document = ThisComponent.CurrentController.Frame > dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") > dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array()) > end sub > > > sub EnregistrerSous > dim document as object > dim dispatcher as object > document = ThisComponent.CurrentController.Frame > dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") > dim args1(1) as new com.sun.star.beans.PropertyValue > args1(0).Name = "URL" > args1(0).Value = "file:///home/fabien/test2.odt" > args1(1).Name = "FilterName" > args1(1).Value = "writer8" > dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1()) > end sub > > Les arguments sont ici faciles à comprendre. > Peut-être à tester? > > Fabien. > > PS: je ne sais pas pourquoi, quand je clique sur "répondre" sur les messages > de "c c" avec mon logiciel de messagerie (Kontact), celui-ci plante. Ce qui > n'est pas avec les autres messages. D'où ma réponse à "c c" via François. > Si quelqu'un a une explication... > > -- > www.gestionnaire-exos.fr > > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org > For additional commands, e-mail: prog-h...@fr.openoffice.org > _________________________________________________________________ Tchattez en direct en en vidéo avec vos amis ! http://www.windowslive.fr/messenger/