Microsoft 365 vba creer sous une feuille date et heures enregistrement du fichier

sylvanu à dit:

Bonjour Looky,
A mettre dans Thisworkbook :

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.ScreenUpdating = False
    With Sheets("Enregistrements")  ' A modifier suivant besoins
        DL = 1 + .Range("A65500").End(xlUp).Row
        .Cells(DL, "A") = Now
        ActiveWorkbook.Save
    End With
End Sub

Cliquez pour agrandir...

looky62 à dit:

MERCI C NICKEL, par contre pourquoi il me lance 2 enregistrements qd j'enregistre ? et me mets 2 dates?

Cliquez pour agrandir...

sylvanu à dit:

Qu'est ce que la donne avec ma PJ ? Chez moi ça marche correctement.
Avez vous d'autres macros qui peuvent inter agir ?
Vous pourriez envoyer un fichier test ?

Cliquez pour agrandir...