Code VBA pour appliquer date dernier enregistrement sur toutes les feuilles

Bonjour la communauté,

Je cherche à intégrer la date du dernier enregistrement de mon classeur dans la cellule Y3 de toutes mes feuilles. En cherchant sur le forum j'ai trouvé cela :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(2).Range("B2").Value = "Dernier enregistrement le : " & Now() & " par " & Environ("UserName")
End Sub

mais la macro ne s'applique que sur une seule feuille : sheets2

De plus, je souhaite simplement la date (JJ/MM/AAAA) donc pas Date+heure+secondes comme c'est le cas avec now()

Désolé si ma question peut paraître est basique mais je n'ai aucun pré-requis en VBA.

Merci par avance à celles et ceux qui se pencheront sur le problème évoqué plus haut.

bonjour,

une proposition macro à mettre dans le module workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    For Each ws In ActiveWorkbook.Worksheets
        ws.Range("Y3").Value = Format(Now(), "dd/mm/yyyy")
    Next
End Sub

Bonjour,
Une proposition.
Cdlt.

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet, strUser As String, strDate As String
    strUser = Environ("UserName")
    strDate = FormatDateTime(VBA.Date, vbLongDate)
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells(2, 25).Value = "Dernier enregistrement le " & strDate & " par " & strUser
    Next ws
End Sub

Marvelous vous êtes fantastiques. Merci à tous les deux.

Re,
Merci de ce retour.
Cdlt.