[Issue] Raccourci pour insérer la date ou l'heure courante

[VincentB]

Bonjour,

Je cherche à remplir mes feuilles de temps avec OOo Calc, mais ne trouve pas le moyen d'insérer facilement (sans les saisir) la date courante et l'heure courante.

Dans Excel, j'utilisais les raccourcis CTRL+"." et CTRL+":" (insertion respectivement de la date et de l'heure), mais ne trouve pas l'équivalent sur OOo.

Les fonctions (ex : MAINTENANT()) permettent bien de récupérer la date et l'heure courante, mais les valeurs sont actualisées à chaque ouverture du document, ce que je ne souhaite pas.

Merci d'avance pour vos éclairages/pistes !
Vincent

[jeanmimi]

bonjour,

c'est une option qui est décrite ici :

http://christianwtd.free.fr/index.php?r ... DebImprime

regarde si cela pourrait fonctionner pour toi.

[VincentB]

Merci pour ta réponse
La page que tu indiques explique comment insérer la date et l'heure courante dans un en-tête ou un pied de page, en vue de l'impression.
Mais perso, je cherche à les insérer dans n'importe quelle cellule de la feuille...

[Dude]

Moi, je vois une petite macro que tu affectes à un raccourci clavier :

Code : Tout sélectionner

Sub insertDate
   Dim aLocale as new com.sun.star.lang.Locale, vNumFormat
   Dim oDoc as Object : oDoc = ThisComponent
   Dim oCell as Object : oCell = oDoc.CurrentSelection
   Dim sFormat as String : sFormat = "JJ/MM/AAAA"
   If oCell.supportsService( "com.sun.star.sheet.SheetCell" ) Then
      oCell.setValue( Now() )
      vNumFormat = oDoc.getNumberFormats().queryKey( sFormat, aLocale, TRUE )
      If ( vNumFormat = -1 ) Then
         vNumFormat = oDoc.getNumberFormats().addNew( sFormat, aLocale )
      End If
      oCell.NumberFormat = vNumFormat
   End If
End Sub

[Dude]

Oups, j'ai oublié la macro pour l'heure :

Code : Tout sélectionner

Sub insertHeure
   Dim aLocale as new com.sun.star.lang.Locale, vNumFormat
   Dim oDoc as Object : oDoc = ThisComponent
   Dim oCell as Object : oCell = oDoc.CurrentSelection
   Dim sFormat as String : sFormat = "HH:MM:SS"
   If oCell.supportsService( "com.sun.star.sheet.SheetCell" ) Then
      oCell.setValue( Now() )
      vNumFormat = oDoc.getNumberFormats().queryKey( sFormat, aLocale, TRUE )
      If ( vNumFormat = -1 ) Then
         vNumFormat = oDoc.getNumberFormats().addNew( sFormat, aLocale )
      End If
      oCell.NumberFormat = vNumFormat
   End If
End Sub

[VincentB]

Ouaa Génial !
Cela fonctionne parfaitement, merci beaucoup !

[Dude]

Je reviens sur ce fil pour signaler que hors macro, il n'existe pas de raccourci prédéfini.

Il existe la vieille demande d'amélioration 1704 qui comptabilise
9 voix
au 04/04/2010 : 17 voix
au 11/08/2014 : 23 voix
et auquelle vous pouvez voter.

[xavier2]

La macro indiquée fonctionne super .
Est-il possible de la faire fonctionner sans indiquer de format ,le but étant qu'elle s'adapte au format déjà en place dans un champ de cellule ?
Merci de vos réponses

[Dude]

Salut,

Oui c'est possible et comme d'habitude, lire ou relire le bandeau rouge en haut de la page pour poser ta question au bon endroit.
Et profites-en pour ajouter ton vote à l'issue mentionnée.
Histoire de participer au projet et de ne pas venir ici faire ton marché.

[xavier2]

Merci de ta remarque constructive .

J'ai publié ma question ici :
https://forum.openoffice.org/fr/forum/v ... =8&t=44230

Je pense que c'est bon comme ça ?

[dhpl]

Merci pour cette macro qui permet d'afficher la date.