Historique des utilisateurs du fichier

[cathodique]

Bonjour,

Sur mon fichier original, à l'ouverture de mon fichier une Userform d'authentification s'affiche. Après authentification, le nom de l'utilisateur s'inscrit sur la feuille "Menu" en J23. La fermeture du fichier s'effectue par click sur un bouton (sortie par la croix inhibée) et enregistre les modifications.

Je voudrais qu'à chaque utilisation du fichier, insérer sur la feuille 'historiques",
en colonne A: la date et l'heure d'ouverture du fichier;
en colonne B: le nom (J23 de cette feuille);
ainsi qu'en colonne C: la date et heure de fermeture du fichier. Et ce, sur la même ligne.

En vous remerciant beaucoup.

Cordialement,

 

[Staple1600]

Re : Historique des utilisateurs du fichier

Bonjour à tous

cathodique
Sujet déjà traité, un petit coup de loupe plus tard, tu auras toutes les infos nécessaires pour solutionner ta question.
Allez zou cliques le lien ci-dessous 😉
Recherche dans les forums - Excel Downloads Forums

 

[cathodique]

Re : Historique des utilisateurs du fichier

Bonjour Staple1600,

Je te remercie pour le lien. J'ai déjà fait pas une, mais des recherches infructueuses. Il fort possible que j'ai mal choisi mes arguments de recherches. Et c'est pour cela que j'ai ouvert cette discussion. Mais bon, plus que tu me dis que le sujet a déjà été traité; je vais refaire d'autres recherches sur le forum, sinon je me tournerais vers Google.

Merci, Bonne journée.

Cordialement,

 

[Staple1600]

Re : Historique des utilisateurs du fichier

Re


Un exemple ici
https://www.excel-downloads.com/threads/log-de-modification-sur-un-fichier-excel.89219/
Un autre là
https://www.excel-downloads.com/threads/creer-un-fichier-log.123774/

 

[BOISGONTIER]

Re : Historique des utilisateurs du fichier

Bonjour,

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

Enregistre les dates de connexions dans une feuille ESPION (masquée)
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

JB

 

[cathodique]

Re : Historique des utilisateurs du fichier

Bonjour Boisgontier, Re Staple1600,

Je vous remercie beaucoup, vous me facilitez la tâche. J'ai écumé pas mal de sujets, sans résultat.
Je ne veux pas faire un log de suivi, mais enregistrer les utilisateurs du fichier, date d'ouverture et de fermeture.

Je pense que le fichier de Boisgontier se rapproche le plus de mes attentes. J'essaie d'adapter pour mon fichier.
Quel qu'en soit le résultat obtenu, je vous tiendrai au courant.

Merci beaucoup pour votre aide.

Cordialement,

 

[Misange]

Re : Historique des utilisateurs du fichier

Bonjour

et encore quelques liens
Ce lien n'existe plus
Ce lien n'existe plus
Ce lien n'existe plus

je te recommande tout particulièrement ce classeur de Bruno M45 (qui officie ici même)
Ce lien n'existe plus

 

[cathodique]

Re : Historique des utilisateurs du fichier

Re,

Voilà, j'ai repris le code du fichier de Boisgontier. Mais j'ai un bug (code 1004) sur la ligne signalée par des ****, pour la récupération du nom de l'utilisateur qui n'est pas le "username".
Ce nom est inséré dans la cellule J23 de la feuille "Menu" que j'ai nommée "Etat".

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("Historiques").[A65000].End(xlUp).Offset(1, 2) = Now
  ***Sheets("Historiques").[A65000].End(xlUp).Offset(1, 1) = Sheets("Menu").Range(J23).Text 
End Sub
Private Sub Workbook_Open()
  Sheets("Historiques").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub

L'accès à ce fichier se fait par userform, les noms des utilisateurs ne sont pas des noms de sessions, mais créés par l'administrateur. L’utilisateur sélectionne dans une combobox son nom [Sheets("Menu").Range("J23")= UserForm1.Combobox1] et saisit son mot de passe. En espérant avoir été clair dans mes explications.
Merci beaucoup pour votre aide.

Cordialement,

 

[cathodique]

Re : Historique des utilisateurs du fichier

Bonjour Misange,

Je te remercie beaucoup. J'ai consulté tes liens et ils sont tous intéressant. Mais je pense que mon souci réside dans le fait que le nom de l'utilisateur doit être récupéré d'une cellule en l’occurrence cellule J23 de la feuille Menu.

Encore merci, vraiment j'apprécie votre gentillesse à vous tous.

Cordialement,

 

[cathodique]

Re : Historique des utilisateurs du fichier

Re,

J'ai repéré mon erreur où ça bug. mais j'ai encore un petit souci, à la fermeture les informations se mettent en première ligne et du coup efface l’entête.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("Historiques").[A65000].End(xlUp).Offset(0, 2) = Now
  Sheets("Historiques").[A65000].End(xlUp).Offset(0, 1) = Sheets("Menu").Range("J23")
End Sub
Private Sub Workbook_Open()
  Sheets("Historiques").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub

Merci.

Cordialement,

 

[Staple1600]

Re : Historique des utilisateurs du fichier

Bonjour à tous


Essaies ceci en lieu et place de ta procédure WorkBook_Open initiale.

Private Sub Workbook_Open()
   Sheets("Historiques").[A65000].End(xlUp)(2) = Now
 End Sub

 

[cathodique]

[Résolu] : Historique des utilisateurs du fichier

Re,

Je vous remercie beaucoup. Mon problème est en partie résolu avec ce dernier code de Staple1600.

Je pense pouvoir m'en sortir tout seul.

Merci encore une fois à vous tous.

Cordialement,