Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Historique des utilisateurs du fichier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

cathodique

XLDnaute Barbatruc
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,
 

Pièces jointes

Trier par date Trier par votes
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,
 
Vote positif 0 Vote négatif
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.


Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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,
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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".
Code: 
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,
 
Dernière édition:
Vote positif 0 Vote négatif
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,
 
Vote positif 0 Vote négatif
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.
Code: 
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,
 
Vote positif 0 Vote négatif
Re : Historique des utilisateurs du fichier

Bonjour à tous


Essaies ceci en lieu et place de ta procédure WorkBook_Open initiale.
Code: 
Private Sub Workbook_Open()
   Sheets("Historiques").[A65000].End(xlUp)(2) = Now
 End Sub
 
Vote positif 0 Vote négatif
[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,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
635
TooFatBoy
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
360
cathodique
  • Question Question
XL 2016 Transfer de donnees avec clé d'entrée a la date
Réponses
3
Affichages
308
job75
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
693
job75
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
497
jeff1494
M
  • Question Question
XL 2019 Historique, affichage antichronologique des sorties
Réponses
3
Affichages
452
Lolote83
L
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
574
iruri
I
C
  • Question Question
Microsoft 365 MFC colonnes + description +date du jour
Réponses
5
Affichages
422
fanfan38
M
  • Question Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
628
mromain
E
  • Question Question
Microsoft 365 Problème de conversion des mois en périodes dans Excel avec VBA
Réponses
2
Affichages
736
RyuAutodidacte
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
485
MCOTTEND
M
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
874
dysorthographie
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
346
AtTheOne
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
370
CDALE
C
A
  • Résolu(e)
Microsoft 365 Suppression d'une ligne d'un tableau avec une macro
Réponses
13
Affichages
952
Alain 79
A
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
675
arnoldbrice19
A
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
755
jeff1494
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
546
p56
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…