Infos sur la modification d'un fichier

[13GIBE59]

Bonjour à toutes et à tous, longue vie au Forum !

J'aimerais faire apparaître quelques informations concernant la modification d'un fichier. 😱

Sur un réseau partagé entre 50 postes, nous avons accès à un fichier Excel qui subit souvent des modifications.
Je souhaite faire apparaître dans une cellule, disons A1, la date, l'heure, et le nom d'utilisateur auteur de la dernière modification.
Est-ce possible ? 😕

Merci d'avance. 😀

JB

 

[bérylion]

Re : Infos sur la modification d'un fichier

Salut

une solution simple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
[A1].Value = "Dernier enregistrement le " & ThisWorkbook.BuiltinDocumentProperties("last save time") & " par " & Application.UserName
End Sub

 

[13GIBE59]

Re : Infos sur la modification d'un fichier

Bonjour, Bérylion.

Merci pour ta réponse rapide. Mais elle ne fonctionne pas chez moi.
Est-ce normal ?

JB

 

[BOISGONTIER]

Re : Infos sur la modification d'un fichier

Bonjour,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets(1).[A1] = Now() & " " & Environ("username")
End Sub

JB
Formation Excel VBA JB

 

[13GIBE59]

Re : Infos sur la modification d'un fichier

Merci infiniment, Boisgontier.😀😀

Je le savais depuis que j'ai plus que visité ton site : tu es un des meilleurs.😎

Respect. Je m'incline.😱

JB