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

[looky62]

HEllo la communauté,

Je cherche un code sous VBA qui enregistre sous une feuil , ts les enregistrements qui ont été fait sur le fichier excel la date et heure

c comme un registre d'enregistrement

Merci de votre éclairage

 

[sylvanu]

Bonjour Looky,
A mettre dans Thisworkbook :

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

 

[looky62]

Bonjour Looky,
A mettre dans Thisworkbook :

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

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

 

[looky62]

peut etre supprimer ActiveWorkbook.Save

 

[sylvanu]

Oups, exact, c'est un doublon.
Supprimez cette ligne.

 

[looky62]

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

Par contre, il fait bugger mon fichier, il faut que je le referme pr denouveau remplir des éléments, il fige mes onglet et tout le fichier excel

 

[sylvanu]

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 ?

 

[looky62]

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 ?

super merci effectivement il y avait des macros qui interagissaient!