XL 2019 Horodatage d'ouverture du classeur actif

[D.D.]

Bonjour à tous,

Savez vous s'il existe une propriété (de ThisWorkBook ? ) qui donne la date et l'heure à laquelle le classeur courant a été ouvert ?
Je sais que je peux stocker cela dans une cellule lors de l'ouverture du classeur (via Private Sub Workbook_Open) mais ce serait plus cool d'avoir accès à une propriété.

Merci.

 

[Hasco]

Bonjour,

A ma connaissance non ! Mais vous pouvez toutefois :

1 - la créer dans le module thisworkbook (voir code ci-dessous) mais ça n'a pas grand avantage
2 - Dans WorkBookOpen mettre 'maintenant' dans un nom
3 - Dans WorkbookOpen mettre 'maintenant' dans une variable publique

Private mLastOpenDateTime As Date

Public Property Get LastOpenDateTime() As Date
    If mLastOpenDateTime = 0 Then mLastOpenDateTime = Now
    LastOpenDateTime = mLastOpenDateTime
End Property

Public Property Let LastOpenDateTime(dte As Date)
    mLastOpenDateTime = dte
End Property

Private Sub Workbook_Open()
    mLastOpenDateTime = Now
End Sub

'Appel dans un module : 
Sub truc()
   Dim t As Date: t = ThisWorkbook.LastOpenDateTime()
   MsgBox Format(t, "dd/mm/yyyy hh:mm:ss")
End Sub

bonne journée

 

[D.D.]

Merci beaucoup.