Probléme traitement donnée- "Date"

Bonjour à tous ,

Je viens solliciter votre aide sur un problème de macro de récupération web et de traitement des données , je n'ai aucun bug donc je pense que c'est un probléme de format. Lors du traitement des données vers une cellule j'ai les dates qui ne sont pas en entier , je n'ai que le jour donc par exemple 21 au lieu de 21/09/2011 .Je vous met le bout de code en question , le traitement de la date est tout à la fin.

Merci d'avance,

Nico.

 Next OI
        L = L + 1
        Cells(L, 1) = "Gains 6 dernières courses"
        Cells(L, 2).Value = RecupPlusDetails(L, vUrl)
        vUrl = ""
    Loop
    Columns(1).AutoFit
    ActiveSheet.UsedRange.HorizontalAlignment = xlLeft
    Application.ScreenUpdating = True
    'Fermer IE
    IE.Quit
    Set IE = Nothing
    Application.StatusBar = False

    MsgBox "Traitement terminé !  "
End Sub

Private Function RecupPlusDetails(Lign As Long, vUrl As String) As String
Dim T As String
Dim L As Byte
    With Sheets("Tempo")
        .Cells.Delete
        With .QueryTables.Add(Connection:="URL;" & vUrl, Destination:=.Cells(1, 1))
            .Name = "LaRequete"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlSpecifiedTables
            .WebTables = "1"
            .WebFormatting = xlWebFormattingNone ' xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = True
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
            .Delete
        End With
        For L = 1 To 6
            T = T & Val(.Cells(L * 3 + 1, 3).Value) & "-" 'Recup Allocation
        Next L
        RecupPlusDetails = Left(T, Len(T) - 1)
        For L = 1 To 6
            T = T & Val(.Cells(L * 3 + 2, 6).Value) & "-" ' recup Gains
        Next L
        RecupPlusDetails = Left(T, Len(T) - 2)
        For L = 1 To 6
            T = T & Val(.Cells(L * 3 + 2, 1).Value) & "-" ' Recup Nb Partants
        Next L
        RecupPlusDetails = Left(T, Len(T) - 1)
        For L = 1 To 6
            T = T & Val(.Cells(L * 3 + 1, 1).Value) & "-" ' Recup Date derniére course ( probléme)
        Next L
        RecupPlusDetails = Left(T, Len(T) - 1)
    End With
End Function

Bonjour je ne vois pas bien l'erreur n'ayant pas le format de données source, mais il faut utiliser cdate()

qui va transformer une date de type chaine en date Excel

Ok , j'avais essayé avec DateValue, Value2 mais pas CDate. Et c'est bon ça fonctionne!!

Merci