Discussion :

[graphikris]

Bonjour,

J'aimerais savoir s'il était possible de savoir lors de mon absence, si mon fichier de données a été modifié par mes collégues.
Tout en sachant que ce fichier est modifiable par deux collègues, qu'il est sur réseau mais pas en partage.

Le top serait que j'obtienne un rapport me disant que tel utilisateur (username de connexion au réseau) a modifié telle feuille, telle cellule, tel jour à telle heure. Avant dans telle cellule, il y avait tel renseignements (ex: 25/04/2011) dans la cellule et désormais il y a çà (28/04/2013).

Cordialement.
Graphikris

Je reviens sur mon post.

Je suis sur XL 2003, j'ai essayé le partage sur le réseau qui aurait pû me permettre de voir les modifs faites par mes collègues mais çà n'a pas l'ai de fonctionner.

Cordialement

[graphikris]

Etant sans reponse, je relance le débat, je pensais que j'aurais eu une reponse en 2 coup de cuillère à pot mais j'ai sous estimé ma question.

Est ce impossible à réaliser ?

[graphikris]

Aucune reponse a ce jour.
Je suppose que c'est impossible a réaliser avec Excel

[NVCfrm]

bonsoir,
avec une macro tu peux intercepter tout changement sur la feuille avec l'évènement Worksheet_Change.

[graphikris]

Bjr et merci pour l'info mais on met quoi comme code ?

[NVCfrm]

bonsoir,

tu dois pouvoir gérer ça au niveau évènement classeur. ThisWorkbook
3 ou quatre procédures évènementielles. en tête de module, quelques déclarations visibles pour toutes les procédures.

Je te donnes les grandes lignes

Il te faudra sans doute une feuille supplémentaire masquée nommée rapport nom de code identique.
sur la feuille rapport, en première ligne créer les étiquettes de colonne:

Utilisateur Début séance Fin séance Objet Avant changement Après changement

une colonne vide intercalée entre les deux dernières étiquettes.

Note les codes ci-dessous ne sont pas testés. Il te faudra mettre peut-^tre placer un point d'arrêt physique dans la première ligne d'instruction de chaque procédure avec l'instruction Stop pour déboguer pas à pas avec F8.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Dim activ_cel As String, est_changer As Boolean, quand As String, new_file As String
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim l As Long
 
    With Rapport
        l = .Range("a2").End(xlDown).Row
        .Rows(l).Insert ' insère une ligne de séparation entre les séances utilisateur
        .Cells(2, 3) = Now
    End With
End Sub
 
Private Sub Workbook_Open()
 
    With Rapport
        .Rows(2).Insert
        .Cells(2, 1) = Application.UserName
        .Cells(2, 2) = Now
        .Rows(3).Insert
    End With
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
 
 
End Sub
 
'ici on pourra traiter l'évènement en analysant un peu l'objet qui a été changé.
'l'idée c'est que si l'objet n'atteint pas un certain nombre de cellules,
'on l'enregistre sur la ligne correspondante, sinon on crée un fichier pour l'enregistrer. Dans le cas ou c'est une cellule, tout simplement 
 
Private Sub Statuts(cible As Range, colonne As Integer)
    Dim cl As Range, r As Range
    Dim rf As Long, rc As Long, i As Long, n As Long
    Dim vide As Boolean, e As Boolean, f As String, d As String, T
 
End Sub
 
 
'ben c'est pas aussi simple que je le croyais! pas le temps de tester...

faute de temps pour traiter vraiment le tout à ta place , tu m'informeras des problèmes que tu rencontres.
bonne soirée.