enregistrement des utilisateurs

Bonsoir,

http://cjoint.com/?djtSzrkwBp

Sub auto_open()
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub

Sub auto_close()
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) =
Environ("username")
Sheets("espion").[A65000].End(xlUp).Offset(0, 3) =
Environ("computername")
Sheets("espion").Visible = xlVeryHidden
End Sub

Sub affiche_espion()
mp = InputBox("Mot de passe?")
If mp = "jacques" Then
Sheets("espion").Visible = True
End If
End Sub

JB
http://boisgontierjacques.free.fr

On 9 mar, 19:22, "Benoit" <benoit.triv...@orange.fr> wrote:

Bonsoir,

est-il possible d'enregister dans un classeur Excel sur une feuille préc ir
l'historique de tous les utilisateurs qui ont ouvert ce classeur ?

merci pour la réponse

Bonsoir,

Dans le module ThisWorkbook

Private Sub Workbook_Open()
Application.ScreenUpdating = False
ou = ActiveSheet.Name
Public qUi As String
qUi = Environ("username")
Sheets("Historique").Activate
zz = Range("a65536").End(xlUp).Row + 1
Cells(zz, 1) = qUi
Cells(zz, 2) = Now
Sheets(ou).Activate
Application.ScreenUpdating = True
End Sub

avec une feuille supposée nommée Historique

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Benoit" <benoit.trivero@orange.fr> a écrit dans le message de
news:%234oZ8JhgIHA.4196@TK2MSFTNGP04.phx.gbl...

Bonsoir,

est-il possible d'enregister dans un classeur Excel sur une feuille précir
l'historique de tous les utilisateurs qui ont ouvert ce classeur ?

merci pour la réponse

on peut aussi utiliser
Application.UserName

Michel Angelosanto, Bordeaux
http://angelosa.free.fr/

Bonsoir,
On peut effectivement, mais on n'obtiens pas nécessairement le même résultat
:
environ("username") renvoie le nom sous lequel la session est ouverte
Application.UserName renvoie le nom pour lequel l'application est enregistré
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Michel Angelosanto" <angelosa@free.fr> a écrit dans le message de
news:%23KsfyOigIHA.4632@TK2MSFTNGP03.phx.gbl...

on peut aussi utiliser
Application.UserName

Michel Angelosanto, Bordeaux
http://angelosa.free.fr/