Samuel Mounier (Liste CGO) a écrit :
> mbini a écrit :
>> Bonjour
>> Comment insérer la date d'"aujourd'hui" sans quelle change à la
>> réouverture du classeur, pour avoir un bouton macro qui l'insère.
>> Cordialement
>> Michel
>>
> Bonjour Michel,
>
> Une petite recherche dans l'archive de la liste et tu trouvera
>
> Ce sujet précis à déjà été abordé (il y a longtemps peut être)
>
Merci j'ai trouvé
michel
Sub Datefixe
Dim oDoc as Object, oCell as Object
oDoc = ThisComponent
oCell = oDoc.getCurrentSelection()
'Affectation de la date et heure courante
oCell.Value = now()
'Formatage
Dim aLocale as new com.sun.star.lang.Locale
Dim oFormats As Object
Dim sFormat as String
sFormat = "JJ/MM/AAAA HH:MM:SS"
oFormats = oDoc.getNumberFormats()
formatNum = oFormats.queryKey (sFormat, aLocale, TRUE)
If (formatNum = -1) Then
formatNum = oFormats.addNew(sFormat, aLocale)
End If
oCell.NumberFormat = formatNum
End Sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
