Public Function DdMm() As String
Dim tmp As String
'récupérer le jour
DdMm = Mid(Now, 1, 2)
'ajouter le "-"
DdMm = DdMm & "-"
'ajouter le mois
DdMm = DdMm & Mid(Now, 4, 2)
End Function
Public Function HhMm() As String
Dim tmp As String
'récupérer l'heure
HhMm = Mid(Now, 12, 2)
'ajouter le "."
HhMm = HhMm & "."
'ajouter les minutes
HhMm = HhMm & Mid(Now, 15, 2)
End Function