[VBA] Enregistrer les actions des utilisateurs dans une feuille

[Dakin Quelia]

» Enregistrer les actions des utilisateurs dans une feuille

Ce petit code vous permet d'enregistrer les actions des utilisateurs dans une feuille Excel.

Code : Tout sélectionner

' Enregistrer une action dans un journal
Sub EnregistrerAction(ActionUtilisateur As String)
    Dim strOngletInitial As String
    
    ' On enregistre les actions des utilisateurs dans un journal
    Application.ScreenUpdating = False
    strOngletInitial = ActiveSheet.Name
    Worksheets("Log").Select

    If Range("A1").Offset(1, 0).Value = "" Then
       Range("A1").Offset(1, 0).Value = Format(Now, "dd/mm/yyyy")
       Range("A1").Offset(1, 1).Value = Environ("UserName") & " " & ActionUtilisateur
    Else
       Range("A1").End(xlDown).Offset(1, 0).Value = Format(Now, "dd/mm/yyyy")
       Range("A1").End(xlDown).Offset(0, 1).Value = Environ("UserName") & " " & ActionUtilisateur
    End If
     
    Worksheets(strOngletInitial).Select
    Application.ScreenUpdating = True
End Sub

Pour l'utiliser, rien de très compliqué :

Code : Tout sélectionner

' Enregistre l'action d'ouverture de fichier
EnregistrerAction ("a ouvert le fichier")