[Excel] Log des utilisateurs

Version imprimable

26/09/2006, 17h41
wanou44

[Excel] Log des utilisateurs
Bonjour,

J'aimerais connaître les personnes qui ouvrent mon fichier Excel et stocker le tout dans une autre feuille cachée de mon classeur.
J'ai réussi à faire une fonction qui stocke le nom et la date, dans un fichier texte à part.
Mais je n'arrive pas à l'adapter à mes besoins.

Voici le bout de code :
Code:

1 2 3 4 5 6 7 Private Sub Workbook_Open() Open ThisWorkbook.Path & "\usage.log" For Append As #1 Print #1, Application.UserName, Now Close #1 End Sub
Par la suite, je voudrais faire la même chose pour ceux qui modifie le fichier.
26/09/2006, 17h46
ouskel'n'or

Citation:

Envoyé par wanou44

Mais je n'arrive pas à l'adapter à mes besoins.

Quel est-il ? Noter l'identité de celui qui modifie le fichier ?
26/09/2006, 19h01
SfJ5Rpw8

Citation:

Envoyé par wanou44

...
Par la suite, je voudrais faire la même chose pour ceux qui modifie le fichier.

utilise l'événement Workbook_BeforeSave ..
27/09/2006, 09h19
wanou44

Citation:

Envoyé par ouskel'n'or

Quel est-il ? Noter l'identité de celui qui modifie le fichier ?

Non, mon besoin est de stocker la liste des personnes ouvrant ce fichier dans une feuille cachée du classeur et non dans un fichier texte à part.
27/09/2006, 11h26
ouskel'n'or

Donc tu as deux listes dans ta feuille masquée, la première des visiteurs, la seconde de ceux qui modifient les données.
la proposition de bbil (Workbook_BeforeSave) place dans ta deuxième liste le nom de tous ceux qui enregistrent le fichier, modifié ou non.
Si tu ne veux, dans cette deuxième liste, n'avoir que ceux qui ont modifié le fichier, tu as plusieurs solutions plus ou moins fiables, la plus fiable étant la plus lourde car elle passerait par la création d'une copie de ton fichier à l'ouverture, puis une comparaison de cette copie avec ton fichier à l'enregistrement, puis en une destruction de la copie. Je ne suis pas sûr qu'on puisse faire ça fichier ouvert (forcément ouvert puisque contenant les macros)
La plus simple passerait par la comparaison de la taille du fichier entre l'ouverture et l'enregistrement.
Précise tes "exigences" ;)
27/09/2006, 11h43
wanou44

Citation:

Envoyé par ouskel'n'or

Donc tu as deux listes dans ta feuille masquée, la première des visiteurs, la seconde de ceux qui modifient les données.
la proposition de bbil (Workbook_BeforeSave) place dans ta deuxième liste le nom de tous ceux qui enregistrent le fichier, modifié ou non.
Si tu ne veux, dans cette deuxième liste, n'avoir que ceux qui ont modifié le fichier, tu as plusieurs solutions plus ou moins fiables, la plus fiable étant la plus lourde car elle passerait par la création d'une copie de ton fichier à l'ouverture, puis une comparaison de cette copie avec ton fichier à l'enregistrement, puis en une destruction de la copie. Je ne suis pas sûr qu'on puisse faire ça fichier ouvert (forcément ouvert puisque contenant les macros)
La plus simple passerait par la comparaison de la taille du fichier entre l'ouverture et l'enregistrement.
Précise tes "exigences" ;)

La solution de bbil me convient parfaitement. Je l'ai mise en test et ça fonctionne.

Par contre, je n'arrive toujours pas à enregistrer ces 2 listes dans une feuille cachée de mon classeur. Pour l'instant, j'ai un fichier usage.log et usage2.log.
Pouvez-vous m'aider ?

tiens pour le principe pour l'écriture dans une feuille:

Code:

1
2
3
4
5
6
7
 
Dim iDerLigne As Integer
Set wsLog = Sheets("MaFeuilleLog")
iDerLigne = wsLog.Range("A65535").End(xlUp).Row + 1
wsLog.Cells(iDerLigne, 1) = Application.UserName
wsLog.Cells(iDerLigne, 2) = Now
Set wsLog = Nothing

27/09/2006, 12h04
ouskel'n'or
Tu dois "dé-masquer" ta feuille avant de copier les données dedans avant de la masquer de nouveau. Et pour ne pas voir les mouvements de feuilles, tu mets
Code:

1 2 3 Application.screenupdating = False 'avant d'afficher ta feuille 'et Application.screenupdating = True 'une fois ta feuille de nouveau masquée
A+
27/09/2006, 12h08
SfJ5Rpw8
Citation:
Envoyé par ouskel'n'or

Tu dois "dé-masquer" ta feuille avant de copier les données dedans avant de la masquer de nouveau. Et pour ne pas voir les mouvements de feuilles, tu mets

Code:

1 2 3 Application.screenupdating = False 'avant d'afficher ta feuille 'et Application.screenupdating = True 'une fois ta feuille de nouveau masquée

A+
?? non je pense pas ..?

[Edit] non je suis sur :mouarf:
27/09/2006, 12h15
ouskel'n'or

Citation:

Envoyé par bbil"

?? non je pense pas ..?

[Edit] non je suis sur

C'est bien !
27/09/2006, 15h20
wanou44

Merci ça marche nickel !!!