Bonsoir Jean-Michel,
Le 13/10/2017 à 18:59, Jean Michel PIERRE a écrit :
Sub AfficherTemps
Dim oDocument As Object, oSheet As Object, oCell As Object
oDocument=ThisComponent
oCell=thiscomponent.currentSelection
Call FixTemp(oCell)
end sub
Sub FixTemp(oCell)
Dim sTemps as String
sTemps = Time
oCell.String = sTemps
End Sub
oui, mais attention, ThisComponent.currentSelection peut ne pas être une
cellule et alors... bang. Et puis j'ai pas bien compris pourquoi tu fais
si tarabiscoté.
Autre proposition :
8< ------------------------------------------------
Option Explicit
Sub AfficheTemps()
'Insère le temps dans la cellule actuellement sélectionnée.
'Si la sélection n'est pas une cellule, ne fait rien.
Dim o_Sel As Object
oSel = ThisComponent.currentSelection
If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
oSel.String = Time()
End If
End Sub 'AfficheTemps
------------------------------------------------- >8
Note : Pour avoir la date et l'heure courants, il suffit de remplacer la
référence à la fonction Time() par Now().
Ensuite, yapluka combiner ça avec un raccourci clavier, et hop !
Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés