Sub test0()
' Erreur d'exécution '1004'
' Erreur définie par l'application ou par l'objet
' ici l'erreur est définie par cela = CDate(-1389)
Dim T() As Variant
ReDim T(1 To 2, 1 To 2)
T(1, 1) = CDate(-1389)
T(1, 2) = CDate(-1389)
T(2, 1) = -1389
T(2, 2) = -1389
Cells(1, 1).Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub
' --------------------------------------------------------------------------------------
Sub test1()
' Pour la suppression de l'erreur du test0
' Il n'y a plus Erreur d'exécution '1004'
' l'Erreur définie par l'application ou par l'objet a était corrigé ici
' Par la suppression de l'erreur avec / Trim = Trim(CDate(-1389))
' Mais le résultat sera du format Texte dans la cellule excel
Dim T() As Variant
ReDim T(1 To 2, 1 To 2)
T(1, 1) = Trim(CDate(-1389))
T(1, 2) = Trim(CDate(-1389))
T(2, 1) = -1389
T(2, 2) = -1389
Cells(1, 1).Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub
' --------------------------------------------------------------------------------------
Sub test2()
' Pour substitué le resultat obtenue en formatage texte
' par un du formatage au format date dans la cellule
' Complément autest1
' Substition du texte par formatage = Format(CStr(CDate(-1389)), "dd/mm/yyyy")
' Alors le résultat sera obtenu en format dans la cellule excel
' Possibilité de changer le format de date directement depuis la feuille excel
' a essayer avec le resultat Obtenu en Test2
Dim T() As Variant
ReDim T(1 To 2, 1 To 2)
T(1, 1) = Format(CStr(CDate(-1389)), "dd/mm/yyyy") ' Formatage date 1
T(1, 2) = Format(CStr(CDate(-1389)), "dddd/mmm/yy") ' Formatage Date 2
T(2, 1) = -1389
T(2, 2) = -1389
Cells(1, 1).Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub