OVH Cloud OVH Cloud

Insertion date auto

1 réponse
Avatar
Louchadiere
Bonjour,
J'ai un classeur partagé qui comporte 2 parties. Une est renseignée par moi
même sur mon poste, l'autre partie de même sur un autre poste en réseau. Peut
on inserer automatique la date de modification respectivement pour chaque
partie.

Merci de votre aide

1 réponse

Avatar
JB
Bonjour,

Enregistre dans un onglet DernierUtilisateur la date de modif de chaque
user:

http://cjoint.com/?eqg6ogeQDf

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
p = Application.Match(Environ("username"),
Sheets("DernierUtilisateur").Range("A:A"), 0)
If Not IsError(p) Then
Sheets("DernierUtilisateur").Cells(p, 2) = Now '
l'utilisateur existe déjà
Else
p = Sheets("DernierUtilisateur").[A65000].End(xlUp).Row + 1
Sheets("DernierUtilisateur").Cells(p, 1) = Environ("username")
Sheets("DernierUtilisateur").Cells(p, 2) = Now
End If
End Sub

Autres exemples:
http://cjoint.com/?eqheLYU33Y
http://cjoint.com/?eqhge6K2D5

Cordialement JB