Bonjour,
Cette fonction devrait faire l'affaire :
Function DateCsv(ByVal DateATraiter As String) As Date
Dim I As Integer
Dim TabDate As Variant
TabDate = Split(DateATraiter, " ")
Select Case TabDate(2)
Case "janvier"
DateCsv = DateSerial(TabDate(3), 1, TabDate(1))
Case "février"
DateCsv = DateSerial(TabDate(3), 2, TabDate(1))
Case "mars"
DateCsv = DateSerial(TabDate(3), 3, TabDate(1))
Case "avril"
DateCsv = DateSerial(TabDate(3), 4, TabDate(1))
Case "mai"
DateCsv = DateSerial(TabDate(3), 5, TabDate(1))
Case "juin"
DateCsv = DateSerial(TabDate(3), 6, TabDate(1))
Case "juillet"
DateCsv = DateSerial(TabDate(3), 7, TabDate(1))
Case "août"
DateCsv = DateSerial(TabDate(3), 8, TabDate(1))
Case "septembre"
DateCsv = DateSerial(TabDate(3), 9, TabDate(1))
Case "octobre"
DateCsv = DateSerial(TabDate(3), 10, TabDate(1))
Case "novembre"
DateCsv = DateSerial(TabDate(3), 11, TabDate(1))
Case "décembre"
DateCsv = DateSerial(TabDate(3), 12, TabDate(1))
End Select
End Function