Qui a modifié le fichier ?

[Gipéhel]

Bonjour à tous,
Est-il possible de connaître qui a(ont) modifié un fichier partagé et quand ?
Merci d'avance.
JPL.

 

[edi]

Re : Qui a modifié le fichier ?

Re Michel,
Ok ça marche. Et ça fonctionne aussi avec simplement Ws1 = Sheets(ActiveSheet.Name).
Merci encore pour ta disponibilité.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dte = Format(Date, "dd mm yyyy")
Hre = Format(Now, "hh:mm")
Set Ws1 = Sheets(ActiveSheet.Name)
With Ws1
'.Range("E1").Value = Application.UserName & " " & Dte & " " & hre
.Range("A5").Value = "Dernier enregistrement par:" & "" & " " & "" & " " & Application.UserName & " " & " - " & Dte & " " & " à " & " " & Hre & ""
.Range("A73").Value = Application.UserName ''''ajoute Nom Utilisateur
End With
End Sub

 

[edi]

Re : Qui a modifié le fichier ?

Bonsoir Michel,
Désolé pour le retard de la réponse (j'étais en repos), effectivement en modifiant comme indiqué, ça marche.
Merci pour tout.

Edi

 

[job75]

Re : Qui a modifié le fichier ?

Bonjour,

Mais qu'est-ce qu'il t'arrive Michel ???

Workbooks(ActiveWorkbook.Name) c'est la même chose que ActiveWorkbook

Sheets(ActiveSheet.Name) c'est la même chose que ActiveSheet

Workbooks(ActiveWorkbook.Name).Sheets(ActiveSheet.Name) c'est la même chose que... ActiveSheet

A+

 

[MJ13]

Re : Qui a modifié le fichier ?

Re Edi, Bonjour Job

Merci Edi 🙂 pour le retour.

Gérard: Ah, ben tu m'en apprend de belles 😱.

Bon, mais c'est un truc qui m'était resté en allant un jour sur le site de Chip qui disait qu'il fallait bien déclaré le Workbook puis la Sheet et enfin la cell 😱.

 

[Trois]

Bonjour,

Est ce que vous savez comment faire pour savoir qui a modifié un fichier Word?

Merci

bonjour à tous salut Gipéhel

ci joint un petit exemple

lorsque tu en renregistre le fichier, alors se rajoute en A1 le nom la date et l'heure.
bien donné un Nom personnel sur chaque PC utilisant ton fichier [file name=titin_20060322140833.zip size=7730]Lien supprimé

 

[job75]

Bonsoir Trois, bienvenue sur XLD, bonsoir le fil,

Est ce que vous savez comment faire pour savoir qui a modifié un fichier Word?

Ici c'est un forum Excel mais bon, placez dans ThisDocument du fichier Word joint (Alt+F11) :

Public WithEvents appWord As Word.Application

Private Sub Document_Open()
Set appWord = Word.Application
End Sub

Private Sub appWord_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
ThisDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = Environ("UserName") & " " & Now
End Sub

Enregistrez le document et voyez le pied de page.

Bonne nuit.

 

[eriiic]

Bonjour,

c'est un forum excel ici....
Ceci dit dans, 'Revision' cocher 'Suivi des modifications'.
Et pour savoir qui, afficher le 'Volet vérifications'
eric

 

[Trois]

Bonjour,
Merci à vous deux. Je vais tester.