Log de connexion d’utilisateurs d’un fichier Excel

4
1149

Log de connexion d’utilisateurs d’un fichier Excel

Dans cette vidéo nous allons remplir ensemble une demande suite à la formation de comment créer un formulaire de connexion. Et la demande était d’avoir une page qui contiendra un historique des connections et déconnection.

Je suis daniel de de tuto de rien aller c’est parti.

Création du formulaire de connexion.

Nous allons vite créer une page de connexion avec un champs pour les users et un champ pour le mot de passe.

Log de connexion

Création de la page users.

Il nous faudra aussi une page qui contient les utilisateurs de notre programme avec leurs mots de passe et nom d’utilisateur.

Log de connexion

Création de la page test de connexion.

Désormais nous allons créer une page que nous allons afficher quand la connexion est faite et aussi un bouton de déconnexion.

Log de connexion

Coder la connexion.

Alors désormais que tout est plus au moins en place nous allons configurer notre bouton connexion qui vas contrôler dans notre base de données si l’utilisateur existe oui ou non si oui si le mot de passe correspond à l’utilisateur.

Quand ces étapes sont bonnes alors on va vérifier s’il s’agit d’un administrateur ou un utilisateur. Un administrateur aura accès à tous les pages tandis que l’utilisateur aura accès uniquement à la page in

Log de connexion

Création de la page historique.

Ok désormais nous pouvons nous connecter mais le problème est que nous ne pouvons pas encore tracer qui c’est connecter donc nous allons créer une page pour cela qui contiendra un tableau avec le nom de l’utilisateur qui ces connecter, quel type de connexion login ou logout, et la date et le temp.   

Log de connexion

Création du code qui garde l’historique.

Nous allons créer un bout de code qui va avoir comme paramètre le nom de l’utilisateur, et le type de connexion).

Puis nous allons contrôler s’il y a un utilisateur. Si c’est le cas nous allons chercher la prochaine position dans notre tableau et placer les informations dans notre tableau.

Log de connexion

Désormais nous allons pouvoir faire appel à notre code ou on veut. D’ailleurs nous allons le faire dans notre code de connexion.

Log de connexion

Avec cela nous allons tout simplement faire appel à notre méthode qui va registrer la connexion en plaçant le nom de l’utilisateur et le mot login

Log de connexion

La déconnexion

Aller il est temps de programmer notre déconnexion et aussi afficher cela dans notre historique. Nous n’allons pas trop compliquer les choses donc faire appel à notre méthode qui registre le tout et comme second paramètre on place logout puis on va simplement masquer les pages

Log de connexion

Afficher logout quand on quitte le programme.

Log de connexion

On peut aussi demander à notre fichier de lancer logout quand on l’ouvre afin d’être sûr qu’uniquement la page login est afficher.

Log de connexion

Voila comment faire pour créer une page d’historique, bien sur je l’ais garder plutôt simple mais vous pouvez toujours l’optimaliser en ajoutant le temps total de connexion entre la connexion et la déconnexion.

Si vous aussi vous avez des requêtes n’hésiter pas de demander par contre il risque d’y avoir plusieurs semaines avant que vous voyer un tuto apparaitre.

4 Commentaires

  1. Bonjour Daniel !

    Merci pour ce partage, c’est excellent.

    Je me pose une question :

    Si je met le fichier excel que nous venons de créer en partage sur un lecteur réseau et que plusieurs utilisateurs se connectent en même temps, le suivi des login et logout sera-t-il toujours efficient ?

    SI ce n’est pas le cas que faut-il faire ?

    Merci pour vos précieux conseils.

    Dan

  2. Bonjour,

    je ne suis pas arrivé à réaliser cette application
    Pourriez vous m’envoyer votre excel ou m’expliquer la ou les causes possible de mon erreur.

    je rencontre une erreur d’exécution 1004 erreur définie par l’application ou par l’objet
    For Each x In Sheets(“users”).Range(“users”)

    Public Userlogin As String Pourriez vous m’expliquer cette instruction

    Sub login()
    Dim x As Range

    For Each x In Sheets(“users”).Range(“users”)
    If x = Range(“g9”) And x.Offset(0, 1) = Range(“g11”) Then
    Userlogin = x

    ‘ Call Log(x.Text, “Login”)

    If x.Offset(0, 2) = “Admin” Then
    For Page = 2 To Worksheets.Count
    Sheets(Page).Visible = 0
    Next Page
    Else
    For Page = 4 To Worksheets.Count
    Sheets(Page).Visible = 1
    Next Page
    End If
    Sheets(“In”).Range(“h8”) = “Bonjour” & x
    Sheets(“Login”).Range(“g9”) = Empty
    Sheets(“Login”).Range(“g11”) = Empty
    Exit For

    End If

    Next x

    End Sub

    Avec mes remerciements

    • Bonjour George,
      vous n’avez pas d’erreur dans votre code l’erreur que vous rencontrer c’est que votre champs nommé ne se nomme pas users ou votre page ne se nomme pas users.

      changer aussi votre sheets(page).visible= 0 en 1 sinon ils ne s’afficherons pas

LAISSER UN COMMENTAIRE

Please enter your comment!
Please enter your name here

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.