Sub a()
Dim z$, test$
z = Format(Date, "dddd dd mmmm yyyy ") & Time
test = z & Chr(13)
test = test & Chr(13) & ExtraireChiffre(z)
MsgBox test, vbInformation, "Extraction Chiffres"
End Sub
Private Function ExtraireChiffre(x$) As String
With CreateObject("vbscript.regexp")
.Global = True: .Pattern = "[^\d]+"
ExtraireChiffre = .Replace(x, vbNullString)
End With
End Function