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

looky62

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Classeur4.xlsm
    14.1 KB · Affichages: 4

looky62

XLDnaute Occasionnel
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
MERCI C NICKEL, par contre pourquoi il me lance 2 enregistrements qd j'enregistre ? et me mets 2 dates?
 

Discussions similaires

Réponses
5
Affichages
257