Samuel Mounier (Liste CGO) a écrit :
Serge Perrot a écrit :
Bonjour,
Je souhaite rentrer dans une cellule la date d'aujourd'hui (9 avril
2008) et que
cette date reste au 9 avril: Existe t il un bouton dans la barre
d'outil permettant cette action ?
Si non comment faire ? En effet toutes mes tentatives aboutissent à
une date
qui s'incrémente d'un jour tous les jours, ce qui n'est pas mon
souhait. D'avance MERCI
Fait une petite recherche dans l'historique du forum le code macro que
tu recherche a été décrit (il y a longtemps c'est vrai).
Il te suffira juste d'associer ta macro à cette fonction.
Sinon pour l'insérer dans un entête uo un pide de page de calc ça existe
tout prêt est on peut très bien dire que la date ne doit pas bouger
(date fixe)
Temps que j'y suis je te redonne le code que j'ai sur ma 1.1.5
sub ajoutdate
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = Cstr(Date)
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0,args1())
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0,
Array())
end sub
La combinaison de touche que j'ai associé est Ctrl T
--
Samuel Mounier
Formateur Centre de Gestion Océan
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
