Garger une trace des modificateurs

[Madjon6]

Bonjour,

Je suis administrateur d'un fichier de suivi budgétaire. Je souhaite pouvoir voir à tout moment qui sont les dernier utilisateurs ayant modifié le fichier.

Est ce possible ? et pouvez vous m'aider s'il vous plaît ?

D'avance merci

Madjid

 

[Guest]

Re : Garger une trace des modificateurs

Bonjour MadJon,

Cette macro à mettre dans le module 'Thisworkbook' du classeur, enregistre dans un fichier texte la date et l'utilisateur du fichier si le fichier a été modifié.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Si le classeur a été modifié
 If Me.Saved = False Then
    Dim f As Integer
    Dim Fichier As String
    Dim ligne As String
    Fichier = ThisWorkbook.Path & "\Modificateurs.txt"
    ligne = Format(Now, "dd/mm/yyyy hh:mm:ss") & " " & Environ("USERNAME")
    f = FreeFile()
    Open Fichier For Append As #f
    Print #f, ligne
    Close #f
  End If
End Sub

A bientôt

 

[Madjon6]

Re : Garder une trace des modificateurs

Slt merci.

Par contre je n' arriva pas à la faire fonctionner, voici le fichier sur lequel je veux l'appliquer.

Merci encore.

Mad

 

[Guest]

Re : Garger une trace des modificateurs

Re Bonjour,

Voici le classeur, avec une modification.

Il enregistre une trace dans un fichier texte à la fermeture du classeur.
Sont enregistrés, la date et l'heure, le nom de l'utilisateur et si le classeur à été modifié depuis le dernier enregistrement.

 

[Madjon6]

Re : Garger une trace des modificateurs

Ca marche Merci pour ton aide.

Bonne fin de journée
Mad