XL 2016 [resolu]heure fermeture classeur

[MASSJIPE]

Bonjour
J'utilise le code suivant pour enregistrer usernam date et heure (la date et heure sont au format de cellule personnalisée jjj jj mmmm aaaa hh:mm) à l'ouverture du classeur
Mais je voudrais mettre en colonne C l'heure de fermeture et enregistrer le classeur

Bonjour
J'utilise le code suivant pour enregistre usernam date et heure à l'ouverture du classeur
Private Sub Workbook_open()
Dim strongletinitial As String
Application.ScreenUpdating = False
strongletinitial = ActiveSheet.Name

Worksheets("log").Select
If Range("A1").Offset(1, 0).Value = "" Then
Range("A1").Offset(1, 0).Value = Application.UserName
Range("A1").Offset(1, 1).Value = Now()
Else
Range("A1").End(xlDown).Offset(1, 0).Value = Application.UserName
Range("A1").End(xlDown).Offset(0, 1).Value = Now()
End If
Worksheets(strongletinitial).Select
Application.ScreenUpdating = True

End Sub

 

[Lone-wolf]

Bonsoir MASSJIPE

Private Sub Workbook_open()
Application.ScreenUpdating = False
With Sheets("Feuil1")
If .Range("A1").Offset(1, 0).Value = "" Then
.Range("A1").Offset(1, 0).Value = Application.UserName
.Range("A1").Offset(1, 1).Value = Format(Now(), "ddd dd mmmm yyyy hh:mm")
ElseIf .Range("A1").Offset(1, 2).Value = "" Then
.Range("A1").Offset(1, 0).Value = Application.UserName
.Range("A1").Offset(1, 2).Value = Format(Now(), "ddd dd mmmm yyyy hh:mm")
End If
End With
End Sub

 

[Jacky67]

Mais je voudrais mettre en colonne C l'heure de fermeture et enregistrer le classeur

Bonjour,
Regarde si cela convient

Salutations
JJ

 

[MASSJIPE]

Bonjour Jacky Lone-Wolf
oui Jacky c'est ca que je recherche
par contre lone-Wolf t'on code fonctionne qu'une seul fois malgré X ouvertures
merci