Bonjour,
Lister les propriétés prédéfinies de document :
Sub ListerBDP()
Dim pd, i%
With ActiveSheet
For Each pd In ThisWorkbook.BuiltinDocumentProperties
i = i + 1
.Cells(i, 1) = pd.Name
Next pd
End With
End Sub
Afficher la date et l'heure du dernier enregistrement :
Sub InfoDernierEnreg()
On Error GoTo ErrEnreg
MsgBox "Date du dernier enregistrement :" & Chr(10) _
& ThisWorkbook.BuiltinDocumentProperties("Last save time")
Exit Sub
ErrEnreg:
MsgBox "Le document n'a pas été enregistré."
End Sub
Afficher la date et l'heure d'ouverture précédente du document à l'ouverture :
Private Sub Workbook_Open()
Dim t
t = Now
On Error GoTo CréerCDP
MsgBox "Dernière ouverture précédente du document :" & Chr(10) _
& Me.CustomDocumentProperties("DOuvert")
Me.CustomDocumentProperties("DOuvert") = t
Exit Sub
CréerCDP:
Me.CustomDocumentProperties.Add Name:="DOuvert", Type:=msoPropertyTypeDate, _
LinkToContent:=False, Value:=t
MsgBox "Aucune ouverture précédente du document depuis sa création."
End Sub
La procédure affiche la date et l'heure de l'ouverture précédente, puis met à jour la valeur de la propriété pour la prochaine ouverture.
Elle combine la création de la propriété personnalisée, qui intervient en cas d'erreur, en signalant que le document n'a pas encore été ouvert depuis sa création.
Cordialement.