Re: [users-fr] Date d'aujourd'hui fixe dans calc

[Patrick]

Bonjour, N'ayant pas trouvé comment faire sans une macro, je me suis jeté, et cela fonctionne ! Le problème avec l'enregistrement de macro c'est qu'elles sont en relatif ET absolu ! (enfin je crois) De plus certaines actions ne sont pas enregistrées (choix dans les boites de dialogue, par exemple). voir l'aide : Macros;enregistrement Pour ne rien arranger, vu par un simili débutant, c'est qu'on chope des références de cellules en absolu... J'ai pas bien suivis le pourquoi. L'idée globlale c'est que tout doit se faire au clavier et à la souris sur l'interface à l'écran. Donc le collage spécial en passant par le menu ou le raccourci clavier est enregistré jusqu à l'apparition de la boite de dialogue c'est tout. Il faut passer par l'icône de la barre d'outils "Coller" déroulé pour avoir l'option Formaté [RTF]. Donc j'ai bien une macro avec le raccourci clavier Ctrl+Maj+D et un joli bouton (de plus) pour coller la date_du_jour (c'est en fait le nom de la macro). :-D Comble de la fainéantise aurait-on pu croire quand on écrit la date une fois ou deux par jour ! Du coup j'ai mis la date cent fois dans ma feuille... et bien cela ne m'a pas fait mal aux doigts !!! Serge Perrot m'a ouvert les yeux ! ce qui est incongru pour l'un peut très bien être très utile pour l'autre. :-D Cela m'a obligé à mettre le nez dans les macro, moi qui jure qu'on ne l'y prendrait plus. Grâce à Serge je me suis couché moins bête. Merci à lui. J'ai mis le fichier Calc et l'icône à importer sur http://www.e-forma-pro.fr/Date_du_jour.ods Ci-dessous le code de la macro brut de décoffrage. (avec une petite retouche, un rem devant args1(0).Value = "$F$15") ... Si des accros de la ligne veulent épurer tout çà ils sont les bienvenues. Moi j'y touche pas (plus). Cordialement Patrick sub Date_du_jour 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" rem args1(0).Value = "$F$15" dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1()) rem ---------------------------------------------------------------------- dim args2(0) as new com.sun.star.beans.PropertyValue args2(0).Name = "StringName" args2(0).Value = "=AUJOURDHUI()" dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2()) rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array()) rem ---------------------------------------------------------------------- dim args4(1) as new com.sun.star.beans.PropertyValue args4(0).Name = "By" args4(0).Value = 1 args4(1).Name = "Sel" args4(1).Value = false dispatcher.executeDispatch(document, ".uno:GoUp", "", 0, args4()) rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array()) rem ---------------------------------------------------------------------- dim args6(0) as new com.sun.star.beans.PropertyValue args6(0).Name = "SelectedFormat" args6(0).Value = 10 dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args6()) end sub