[VBA] Enregistrer les actions des utilisateurs dans une feuille

Vous trouverez ici des morceaux de codes qui peuvent être utiles à votre site.
Verrouillé
Avatar du membre
Dakin Quelia
Webmaster
Webmaster
Messages : 565
Enregistré le : ven. 27 nov. 2009 05:47
Localisation : Belgique
Contact :

[VBA] Enregistrer les actions des utilisateurs dans une feuille

Message par 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")

Verrouillé

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité