VBA Excel: Tracer systématiqumt les ouvertures et modif

Voici une façon de faire :
Dans le module Thisworkbook de ce classeur, insérez ces trois codes :
Penser à adapter le chemin et le nom du fichier texte que vous voulez créer. Inutile de le créer, cela le fera automatiquement à la première utilisation.

Private Sub Workbook_Open()
Dim num As Integer, FichierTXT As String
Dim Qui As String, Quand As Date

FichierTXT = "N:\Franck\QuiYaTouche.txt" 'A ADAPTER
Qui = Environ("username")
Quand = Format(Now, "dd/mm/yyyy hh:mm:ss")
num = FreeFile
Open FichierTXT For Append As #num
 Print #1, "Ouverture du fichier par : " & Qui & " le : " & Quand
Close #num
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim num As Integer, FichierTXT As String

FichierTXT = "N:\Franck\QuiYaTouche.txt"  'A ADAPTER
num = FreeFile
Open FichierTXT For Append As #num
 Print #1, "Modifications de : " & Sh.Name & " cellule : " & Target.Address & " le : " & Format(Now, "dd/mm/yyyy hh:mm:ss")
Close #num
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim num As Integer, FichierTXT As String
Dim Qui As String, Quand As Date

FichierTXT = "N:\Franck\QuiYaTouche.txt"  'A ADAPTER
Qui = Environ("username")
Quand = Format(Now, "dd/mm/yyyy hh:mm:ss")
num = FreeFile
Open FichierTXT For Append As #num
 Print #1, "Fermeture du fichier par : " & Qui & " le : " & Quand
Close #num
End Sub 

Pensez à nettoyer de temps en temps votre fichier txt, sinon il risque d'être vite très gros...

Bonjour,

Voici un code permettant de tracer et horodater dans le même classeur les modifications faites, à copier dans le module de chaque feuille concernée après avoir ajouté une feuille "Log":

Dim PreviousValue

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> PreviousValue Then
        Sheets("log").Cells(100000, 1).End(xlUp).Offset(1, 0).Value = _
            Application.UserName & " a modifie la cellule " & Target.Address _
            & " de " & PreviousValue & " en " & Target.Value & " a: " & Format(Time, "hh:mm:ss") & " le: " & Format(Date, "dd/mm/yy")
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    PreviousValue = Target.Value
End Sub

Compte tenu de la problématique exposée, sans doute faudrait-il cacher la feuille afin qu'elle n'apparaisse pas lorsque d'autres utilisateurs ouvrent le classeur.

Bon courage!

Bonjour,

Par macro événementielle, à l'ouverture du fichier, il n'est pas très difficile d'enregistrer, dans un fichier texte, le nom d'utilisateur, la date et l'heure.
Cela le devient davantage lorsqu'il s'agit de traquer toutes les modifications...

Pouvez vous nous en dire davantage?
But de cette manoeuvre?
Intérêt?
Combien de manipulations sont amenées à faire les utilisateurs de ce fichier à chaque utilisation?
Combien de feuilles sont concernées?

Bonjour,

Voici le code d'Abdel corrigé , il y avait un bug:

remplace 100000 par 65000

Dim PreviousValue
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Application.UserName & " a modifie la cellule " & Target.Address _
& " de " & PreviousValue & " en " & Target.Value & " a: " & Format(Time, "hh:mm:ss") & " le: " & Format(Date, "dd/mm/yy")
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PreviousValue = Target.Value
End Sub

Salut pijaku,

Ok, pour info ton code fonctionne très bien. Je me suis intéressé au code d'Abdel, j'ai trouvé le même en allemand avec la bonne syntaxe.