Bonjour,
Tu peux tester ce dispositif (et éventuellement le modifier à ta convenance):
Dans ThisWorkbook :
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim NomCDP$, t
t = Now
NomCDP = "info" & Sh.CodeName
Me.CustomDocumentProperties.Add Name:=NomCDP, Type:=msoPropertyTypeDate, _
LinkToContent:=False, Value:=t
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NomCDP$, t
t = Now
NomCDP = "info" & Sh.CodeName
On Error GoTo créer
Me.CustomDocumentProperties(NomCDP).Value = t
Exit Sub
créer:
Me.CustomDocumentProperties.Add Name:=NomCDP, Type:=msoPropertyTypeDate, _
LinkToContent:=False, Value:=t
End Sub
La première crée une propriété de document personnalisée et y enregistre la date de création.
La seconde enregistre la date de modification lors d'un changement dans la feuille.
Une procédure pour tester :
Sub InfoFeuille()
Dim nf$
On Error GoTo nonenr
nf = "info" & ActiveSheet.CodeName
MsgBox ThisWorkbook.CustomDocumentProperties(nf).Value
Exit Sub
nonenr:
MsgBox "Création ou modification non enregistrée"
End Sub
qui renvoie la date de création ou de dernière modification de la feuille active.
Cordialement.