Sub ouverture()
Dim derlig As Integer
With Sheets("JOURNAL")
derlig = .Cells.Find("*", Range("B1"), , , xlByRows, xlPrevious).Row + 1
MsgBox "Dernière ligne : " & derlig
.Range("B" & derlig).Value = Application.UserName
.Range("C" & derlig).Value = UCase(Format(Now, "dddd d mmmm yyyy"))
.Range("D" & derlig).Value = Format(Now, "hh:mm:ss")
End With
End Sub
Sub fermeture()
Dim derlig As Integer
With Sheets("JOURNAL")
derlig = .Cells.Find("*", Range("B1"), , , xlByRows, xlPrevious).Row + 1
MsgBox "Dernière ligne : " & derlig
.Range("B" & derlig).Value = Application.UserName
.Range("C" & derlig).Value = UCase(Format(Now, "dddd d mmmm yyyy"))
.Range("E" & derlig).Value = Format(Now, "hh:mm:ss")
End With
End Sub