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

création d'un journal de connection fichier XLS

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion melacro
  • Date de début Date de début

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
M

melacro

Guest
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.
 
Trier par date Trier par votes
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
 
Dernière édition:
Vote positif 0 Vote négatif
Re : création d'un journal de connection fichier XLS

Bonjour,


Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 !!!!
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

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
805
arnoldbrice19
A
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
882
Max
M
K
  • Question Question
Microsoft 365 Création d'un journal d'écriture à partir d'un tableau des ventes
2
Réponses
15
Affichages
3 K
CARTER92
C
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
786
job75
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
3 K
dysorthographie
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
898
lesoldat9
L
S
  • Question Question
XL 2019 modifications macro svp
Réponses
3
Affichages
1 K
Bernard_XLD
T
  • Résolu(e)
XL 2010 création d'un pdf a chaque changement de date
Réponses
10
Affichages
1 K
TAOK
T
A
  • Question Question
XL pour MAC outils tableau, création automatique de ligne à partir d'un autre tableau
Réponses
5
Affichages
1 K
axel211
A
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
G
  • Résolu(e)
XL 2016 Simplifier macro rapidité
Réponses
9
Affichages
1 K
ChTi160
K
  • Question Question
XL 2016 Fusion de données de plusieurs onglets sous conditions
Réponses
4
Affichages
1 K
kvizou
K
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
1 K
nat54
K
  • Question Question
XL 2019 Extraction données avec filtre d'un fichier .txt sur Excel & créer nouveau fichier .txt
Réponses
1
Affichages
3 K
Hasco
Z
  • Question Question
XL 2019 (VBA) AutoFiltre de valeurs dans un intervalle
Réponses
3
Affichages
2 K
Zort.x
Z
M
  • Résolu(e)
Microsoft 365 Variabiliser le nom d'un fichier créé/enregistré chaque jour selon la date
Réponses
5
Affichages
2 K
MOA_Excel
M
B
  • Question Question
XL 2013 [VBA] Extraction de données basé sur 2 à 3 conditions
Réponses
2
Affichages
2 K
bastienb
B
A
  • Résolu(e)
XL 2013 Copie de données d'un fichier excel pour les coller vers un autre fichier en VBA
Réponses
3
Affichages
4 K
Ananas94
A
T
  • Résolu(e)
Microsoft 365 Comment enregistrer chaque onglet d'un fichier xls en pdf au nom de chaque onglet ?
Réponses
5
Affichages
9 K
Tchett
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…