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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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