Date sans slash

Voici un fichier où la date doit être insérée sans slash ni tirets sous la forme: JJMMAA. Par exemple 10212 donnera 1 février 2012.

Merci de vos éventuelles critiques.

NB: La formule est valables pour les cellules A1 à A10.

Bonjour,

Dans la mesure ou les dates ont le format JJMMAA, le nombre de caractères est 5 ou 6.

Ci-dessous fonction personnalisée qui remplit juste ce que on lui demande.

Cdlt

Option Explicit
Public Function ConvertNb_date(Valeur) As Date
Dim lg As Byte
Dim an As Byte, mois As Byte, jour As Byte

    If Not IsNumeric(Valeur) Then Exit Function
    lg = Len(Valeur)
    If lg < 5 Or lg > 6 Then Exit Function

    an = Right(Valeur, 2)

    Select Case lg
        Case 5
            mois = Mid(Valeur, 2, 2)
            jour = Left(Valeur, 1)
        Case Else
            mois = Mid(Valeur, 3, 2)
            jour = Left(Valeur, 2)
    End Select

    ConvertNb_date = DateSerial(an, mois, jour)

End Function