Macro à la seconde...

Bonsoir
la macro ci dessous à associer à un bouton

sub heure
rem  variables
dim document   as object
dim oSheet as object 
oSheet = ThisComponent.sheets.GetByName("feuille1") 
oSheet.getCellRangeByName ("A22").value = (now)
end sub

avec A22 la cellule destination à mettre au format heure

Merci Mytå, mais en fait je sais faire un bouton, ma macro est déjà très avancée mais je ne sais pas trop comment interpréter les données de yclik.

Je veux qu'en appuyant sur un bouton, l'heure que j'entre actuellement à la main s'auto-génère par ce bouton et ce, à la seconde.

Cordalement/

Alain

Ok, sur l'onglet évènement je suppose que je dois cliquer sur la 1ère ligne "Approuver l'action" puis dans la fenêtre suivant encore "Approuver l'action" mais ensuite, quelle macro dois-je sélectionner ?
Parmi elles il y a bien le nom de mon logiciel avec pour sous-dossier un document nommé "Standard" mais il n'y a rien dedans.

Cordialement
Alain

Bonjour
Pour inclure la macro dans le classeur
-Copier le code sur le forum sans les N° de lignes
-ouvrir le classeur
-ALT+F11
sélectionner le classeur ouvert dans la fenêtre de sélection de la boite de dialogue avec le +
-bouton "Nouveau" et OK
-Coller le code dans l'onglet macro
-enregistrer avec l'icône "enregistrement"
-fermer la fenêtre par la croix en haut à gauche

sur le classeur affecter la macro comme indiqué dans le commentaire de Myta

Ok ça marche, vous êtes des Dieux, je suis hyper content. Par contre je voulais que mes secondes soient arrondies à 59s sur le principe de "toute minute commencée est due".
2eme élément, sachant que j'ai 2 champs horaires à renseigner, un au commencement l'autre à la fin, comment créer un bouton chacun sachant que lorsque je copie mon bouton et tente d'en modifier la destination ça change aussi celle de l'autre ?

Alain

Bonsoir
a tester

REM  *****  BASIC  *****
sub heure
rem  variables
dim document   as object
dim oSheet as object 
Dim monheure as date, messecondes as integer, maminute as integer, monheure_due as date
oSheet = ThisComponent.sheets.GetByName("feuille1") 

monheure=(now)' extraction heure
msgbox(monheure) ' pour test à supprimer si besoin
messecondes =VAL(Right(monheure,2)) 'extraction secondes en numérique
maminute = VAL(MID(monheure,15,2) 'extraction minute en numérique

If messecondes >0 then monheure_due = CDATE(LEFT(monheure,14)&(maminute+1)&":00") else monheure_due = monheure

rem resulat dans les cellules
oSheet.getCellRangeByName ("A22").value = monheure_due
oSheet.getCellRangeByName ("A23").value = monheure_due

end sub