MASSJIPE
XLDnaute Impliqué
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
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
Code:
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