création d'un journal de connection fichier XLS

[melacro]

Bonjour,

Etant novice sur VB, j'ai le besoin de connaitre ceux qui ouvrent un fichier réseau en particulier pour effectuer un suivi.
Il faut en effet que je puisse créer un "journal des connections".

J'ai déjà réussi à récupérer la connection actuelle (à savoir moi) en écrivant une macro qui récupére le login de connection , date et heure à chaque ouverture du fichier sous la forme :

sheets("compteur").Range("A3")= application.UserName
sheets("compteur").Range("B3")= Date
sheets("compteur").Range("C3")= Time

Mais j'aimerai créer une liste qui se remplit automatiquement en indiquant ces mêmes éléments à chaque fois qu'un utilisateur utilise ce fichier.

Avez-vous une idée, avez-vous déjà réalisé ce genre de choses ??

Merci beaucoup de votre aide.🙂🙂🙂

Bonne soirée à tous.

 

[jeanpierre]

Re : création d'un journal de connection fichier XLS

Bonsoir melacro, Bienvenue sur le forum,

Regarde ce lien, plusieurs exemples dans la page : Gestion des événements

Tu trouveras aussi des solutions ici avec la fonction Recherche, en haut à droite sous ton pseudo.

Bonne soirée.

Jean-Pierre

 

[BOISGONTIER]

Re : création d'un journal de connection fichier XLS

Bonjour,

Si l'opérateur n'active pas les macros, seule la page d'accueil est affichée.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  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
  For s = 2 To Sheets.Count    ' on masque les feuilles
    Sheets(s).Visible = xlVeryHidden
  Next s
End Sub

Private Sub Workbook_Open()
  Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
  For s = 2 To Sheets.Count    ' on affiche les feuilles
    Sheets(s).Visible = True
  Next s
  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

http://boisgontierjacques.free.fr/fichiers/Evenementiel/Espion.xls
http://boisgontierjacques.free.fr/fichiers/Cellules/EspionCelluleModifiees.xls

JB

 

[Guiv]

Re : création d'un journal de connection fichier XLS

Bonjour à tous,
Encore faut-il que l'utilisateur ne désactive pas les macros...😉
Bonne journée
Guiv

 

[melacro]

Re : création d'un journal de connection fichier XLS

Merci beaucoup pour vos réponses.
J'ai essayé avec la première méthode mais cela ne me va pas tout à fait.
Par contre, je n'avais pas remarqué l'évènement "espion" qui me paraît tout à fait approprié.
Je vais l'essayer et l'adapter. Je vous tiens au courant.
Merci encore !!!!