Function RecupDate()
DateT = ThisWorkbook.Name
d = Split(Left(Right(DateT, 23), 19), "-")
RecupDate = DateSerial(d(0), d(1), d(2))
End Function
Function RecupHeure()
DateT = ThisWorkbook.Name
d = Split(Left(Right(DateT, 23), 19), "-")
RecupHeure = TimeSerial(d(3), d(4), d(5))
End Function