Discussion :

[tinkye_winkye]

Bonjour à tous,

J'ai un classeur Excel (version office 2000) comportant x dizaines d'onglets...
Il y a un peu de code pour permettre la mise à jour des onglets (ouverture d'autres fichiers excel et report des données nécessaires...)

En cliquant sur 1 bouton, les procédures de mise à jour se lancent.

Comme le fichier est accessible par plusieurs personnes, je voudrais créer un fichier journal (en VB) permettant de connaitre la dernière personne à avoir lancé la mise à jour, la date & heure, et le nom des onglets qui ont été modifiés à cet instant.

Pouvez-vous m'aider quant à la création de ce fichier journal ? Je pense que ce sera un .log ?? aucune idée, jamais fais

Merci beaucoup de m'avoir lu et d'essayer de me répondre

[Michel_M]

Bonsoir,
Ci dessous Macro de Silkyroad ( a ce propos merci à Michel car j'utilise cette procédure au boulot) sur ce forum ou un autre à placer dans le module thisworkbook
fichier spy.txt à créer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
 
'auteurs: Silkyroad et @thierry
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String, ThePath
 
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 
ThePath = "F:\documents\Spy.txt" ' à adapter au réseau
 
Spy = _
Format(Now, "DD/MM/YYYY HH MM SS") & vbTab & _
"User Name : " & UserName & vbTab & _
Sh.Name & vbTab & Target.Address
 
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

[tinkye_winkye]

Excellent !!!

c'est exactement ce que je cherchais !!!

Mille mercis pour la rapidité et pour la précision de la réponse !!