Bonjour,
Un exemple avec une fonction personnalisée.
Cdlt.
Option Explicit
Public Function ConvertTextToDateTime(strDT As String)
Dim tbl As Variant
Dim iDay As Integer, iMonth, iYear As Integer
Dim dTime As Date
If strDT = "" Then
ConvertTextToDateTime = ""
Exit Function
End If
tbl = Split(strDT, " ")
iYear = Right(tbl(0), 4)
iDay = Mid(tbl(0), 4, 2)
iMonth = Left(tbl(0), 2)
dTime = TimeValue(tbl(1))
ConvertTextToDateTime = DateSerial(iYear, iMonth, iDay) + dTime
End Function