Changer nom login

Le 02/05/2015 à 14:04

Voici mon code qui fonctionne parfaitement, mais il enregistre le nom du pc et non la personne qui se connecte avec son login.

Que faut il modifier?

    
Private Sub Workbook_Open()
    Dim Ws As Worksheet
    Sheets("Feuil2").Visible = xlSheetVisible
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "Feuil2" Then Ws.Visible = xlSheetVeryHidden
    Next Ws
    Load UserForm1
    UserForm1.Show
     Dim c As Range
    With Sheets("Feuil4")
        Set c = .Cells(Rows.Count, 1).End(xlUp).Offset(1)
        c.Value = Application.UserName
        c.Offset(, 1).Value = Now
    End With
    End Sub

Le 02/05/2015 à 14:58

Bonjour

C.value = Environ("username")

Cordialement

Le 02/05/2015 à 19:14

Bonjour Amadéus,

Tout d'abord merci pour votre réponse qui m'apporte une nouvelle info, mais malheureusement je me suis mal exprimé surement, était il possible dans la feuil4 que ce soit les nom des personnes qui ce connecte avec leur login : ex "ADMIN"

Cordialement

merci

Ps : ADMIN

ADMIN

20classeur1.xlsm (27.67 Ko)

Le 02/05/2015 à 19:34

Bonjour

Si tu veux le Nom

c.Value = UserForm1.TextBox1.Value

si tu veux le MDP

c.Value = UserForm1.TextBox2.Value

Cordialement

Le 02/05/2015 à 20:04

MERCI

C'est exactement ce que je cherchais.

Cordialement