Discussion :

[wanou44]

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 :

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

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.

[ouskel'n'or]

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

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

[SfJ5Rpw8]

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

utilise l'événement Workbook_BeforeSave ..

[wanou44]

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.

[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"

[wanou44]

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 ?

[SfJ5Rpw8]

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

Code :

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

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

[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 :

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

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

A+

[SfJ5Rpw8]

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 :

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

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

[ouskel'n'or]

?? non je pense pas ..?

[Edit] non je suis sur

C'est bien !

[wanou44]

Merci ça marche nickel !!!