Bonjour à tous,
Je suis en train de créer un journal d'événements où plusieurs utilisateurs peuvent y inscrire des données.
Je souhaite pouvoir insérer automatiquement l'identification de l'utilisateur et la date de modification.
Je travaille sur un réseau pro et les utilisateurs sont identifiés par une smartcard, le login donc est obligatoire pour travailler sur une machine.
Je souhaiterais donc ces insertions automatiques.
Voilà ce que j'ai trouvé un jour... mais ça ne fonctionne pas/plus
Dans ma feuille:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Me.UsedRange.Columns(15)) Is Nothing Then
Target.Offset(, 1).Value = Application.UserName
'Target.Offset(, 2).Value = VBA.Date & Chr(10) & VBA.Time
End If
Set Rng = Nothing
End Sub
Dans un module:
Function login() As String
login = Application.UserName
End Function
Function Modification()
Modification = VBA.Now
End Function
Je dois oublié quelque chose... mais je ne sais plus
Quelqu'un pourrait m'aider ?
D'avance merci