OpenOffice [Résolu] Insérer date du jour dans Calc

[jacques13]

Bonjour,
Dans mon vieux fichier Excel que je suis en train de traduire en OOo, j'avais une macro bien pratique qui remplissait la date du jour lorsque je faisais Ctrl J dans une cellule vide.
Quelqu'un aurait-il une idée?
Jacques13

[Paco]

Peut-être ; créer une macro qui affiche la date en cours, ensuite, lui attribuer un raccourci clavier.
Voir ici.
A plus...

[Jean-Ni]

Pour info, ça pourra t'être utile :
http://www.forum-openoffice.org/forum/

[msxgreg]

pas besoin de macro pour ça ! il suffit de taper dans la cellule ceci :

=aujourdhui()

ou variante :

=maintenant()


et voilà.

[jacques13]

Merci à Paco, Jean-Ni et MsxGreg pour vos réponses,
J'ai finalement trouvé cette routine qui répond à mon attente:

sub date
oDesktop = createUnoService("com.sun.star.frame.Desktop")
oController = oDesktop.CurrentFrame.Controller
oSelection = oController.Selection

' fixer la valeur de la date
oDocument = oController.Model
oFunction = CreateUnoService("com.sun.star.sheet.FunctionAccess")
oFunction.NullDate = oDocument.NullDate
dim aEmpty()
oSelection.Value = oFunction.callFunction("TODAY", aEmpty())

' fixer le format de la date
'oFormats = oDocument.NumberFormats
'dim aLocale as new com.sun.star.lang.Locale
'oSelection.NumberFormat = oFormats.getStandardFormat(_
' com.sun.star.util.NumberFormat.DATE, aLocale)
end sub
Pour l'anecdote, elle remplace ma vieille macro en Excel qui faisait ..une ligne!
Sub Jour()
' Macro enregistrée le 14/11/2003 par admlocal-1324122
' Touche de raccourci du clavier: Ctrl+j
If ActiveCell = "" Then ActiveCell = Date$
End Sub
Msxgreg, si tu mets =maintenant() dans une cellule tu auras toujours la date du jour auquel tu consultes ton fichier et non pas la date du jour à laquelle tu fais ta mise à jour!
Merci à tous,
Jacques13

[Jean-Ni]

Je te conseille de changer le titre de ton premier post en '[Résolu] Insérer date du jour dans Calc' (par exemple).
-> [Résolu] pour signaler à ceux qui aident que ce sujet est clos, et à ceux qui ont le même problème qu'une réponse a été trouvée.
-> Préciser le titre (OpenOffice, c'est un peu vaste !).

Ca améliore la lisibilité du forum.
Merci.