VBA Excel: Piste d'audit - Ouverture, modif d'un classeur
Résolu/Fermé
A voir également:
- VBA Excel: Piste d'audit - Ouverture, modif d'un classeur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
- Excel compter cellule couleur sans vba - Guide
1 réponse
Bonjour,
Une demande similaire a été posée récemment et voici le code qui a été proposé, et qui fonctionne, à condition d'être adapté et collé dans la feuille 'This workbook' du classeur:
Bonne journée!
Une demande similaire a été posée récemment et voici le code qui a été proposé, et qui fonctionne, à condition d'être adapté et collé dans la feuille 'This workbook' du classeur:
Private Sub Workbook_Open()
Dim num As Integer, FichierTXT As String
Dim Qui As String, Quand As Date
FichierTXT = "D:\Users\Moi\Desktop\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 = "D:\Users\Moi\Desktop\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 = "D:\Users\Moi\Desktop\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
Bonne journée!
28 sept. 2014 à 11:17