Insertion date heure et secondes en cliquant sur un bouton

[GADENSEB]

Hello le Forum,
Je cherche (et trouve pas ce que je veux sur le net) d’insérer en J2 la date et heure et seconde au moment ou je clique sur Bt_Exit
J'ai essayé ces deux possibiltés :

'.[J2].Value = Date
'.[k2].Value = Format(Date, "long time")

Dans :

Private Sub Bt_Exit_Click()

With shI
'.[J2].Value = Date
'.[k2].Value = Format(Date, "long time")
End With

    'Fermer le fichier en le sauvegardant
    Application.AlertBeforeOverwriting = False
    'ThisWorkbook.Save
    Application.Quit
End Sub

mais pas possible .....

QQn aurais une idée?

Bonne journée

seb

 

[Dranreb]

Bonjour

.[J2].Value = Now

 

[Caillou]

Bonjour,

Essayes :
range("j2").Value = Format(now, "dd/mm/yyyy hh:mm:ss")

Caillou

 

[GADENSEB]

nikel avec

range("j2").Value = Format(now, "dd/mm/yyyy hh:mm:ss")

Merci à tous

Bonne journée