[Résolu][Calc] Insertion date sans formatage

[xavier2]

Nouveau sur ce forum ,
j'ai bien vu la macro qui est ici https://forum.openoffice.org/fr/forum/d ... p?id=17630
et qui fonctionne très bien pour insérer une date avec un format fixe .
Que faut-il y supprimer pour ne pas avoir de format (ici "JJ MM AA") ,pour que la date soit insérée dans une cellule avec le format déjà assigné à cette cellule ,le but étant de l'utiliser avec un bouton dans la barre d'outil dans des classeurs différents ,avec une utilisation spécifique à chaque feuille et donc un formatage de date différent dans chaque feuille ou classeur ?
Si qq1 connait ça ...Merci d'avance

[yclik]

Bonjour
En pompant sur la macro du post de départ édité par le grand maitre Dude


A tester

Code : Tout sélectionner

sub maDatecellActive
rem  variables
rem Source Dude Forum Appache Open office
dim document   as object
dim oSheet as object
dim oCell as object
document = ThisComponent
Ocell = thisComponent.CurrentSelection ' cellule à mettre au format
OCell.setValue(now)
End sub

[xavier2]

Merci ,génial .
Exactement ce que je voulais :je suis bluffé ,vu que je n'y comprends rien au langage utilisé ...