Controle de login

Bonjour j'ai un fichier auquel je vais mettre un login qui fonctionne tres bien.

Ma question est comment savoir qui à ouvert le fichier et quel heure avec la date le tout enregistre sur la feuille controle.

Merci

Bonjour,

dans ThisWorkbook :

    Dim c As Range
    With Sheets("controle")
        Set c = .Cells(Rows.Count, 1).End(xlUp).Offset(1)
        c.Value = Application.UserName
        c.Offset(, 1).Value = Now
    End With

eric

Bonsoir,

Ou encore, avec un historique :

Private Sub Workbook_Open()
Dim c As Range
    With Worksheets("controle")
        Set c = .Cells(Rows.Count, 1).End(xlUp)
        c.Offset(1, 0).Value = Application.UserName
        c.Offset(1, 1).Value = Now
    End With
    Set c = Nothing
End Sub

Sub AfficheFeuilles(Utilisateur As String)

Dim col As Byte, i As Byte, lig As Integer

With Sheets("parametrage") 'dans la feuille paramétrage

col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column

lig = .Columns(1).Cells.Find(Utilisateur, LookAt:=xlWhole).Row

For i = 3 To col

If UCase(.Cells(lig, i)) = "X" Then

Sheets(.Cells(1, i).Value).Visible = True

Else

Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden

End If

Next i

End With

End Sub

J'ai une erreur direct sur " Sheets(.Cells(1, i).Value).Visible = True"

du faite la feuille controle ne s'ouvre pas

Salur jean-eric,

C'est quoi la différence ?

eric

pourquoi cette erreur?

Et si tu commençais par faqire un retour et dire merci sur la précédente question ?

eric

C est un fait desole.

Merci pour vos reponse.