Bonjour à tous,
 
J'ai récemment créé un classeur qui manipule des données trés nombreuses à partir d'un fichier texte par du code vba excel.
 
Grosso modo, en voici l'esprit :
1) j'ouvre un fichier texte contenant 5 colonnes (colonne1 : standard, colonne2 : standard, colonne3 : #0.00, colonne4 : date et colonne5 :  date).
2) je stocke l'ensemble du fichier dans une matrice: Dim col(10000, 1 To 5) As Variant
3) je recopie sur mon classeur les 5 premières colonnes et effectue un calcul de soustraction pour évaluer un délai entre la colonne 5 et 4, tel que :
 
For i = 1 To nb
    Range("A" & i + 2).Value = col(i, 1)
    Range("A" & i + 2).BorderAround Weight:=xlThin
    Range("A" & i + 2).HorizontalAlignment = xlCenter
    Range("B" & i + 2).Value = col(i, 2)
    Range("B" & i + 2).BorderAround Weight:=xlThin
    Range("B" & i + 2).HorizontalAlignment = xlCenter
    Range("C" & i + 2).Value = col(i, 3)
    Range("C" & i + 2).BorderAround Weight:=xlThin
    Range("C" & i + 2).NumberFormat = "#,##0.00"
    Range("D" & i + 2).Value = col(i, 4)
    Range("D" & i + 2).BorderAround Weight:=xlThin
    Range("D" & i + 2).HorizontalAlignment = xlCenter
    Range("E" & i + 2).Value = col(i, 5)
    Range("E" & i + 2).BorderAround Weight:=xlThin
    Range("E" & i + 2).HorizontalAlignment = xlCenter
   Range("F" & i + 2).Value = col(i, 5) - col(i, 4)
    Range("F" & i + 2).BorderAround Weight:=xlThin
    Range("F" & i + 2).HorizontalAlignment = xlCenter
         
Next
 
Ce code passe impeccable sur Excel version < 2003 mais dès qu'il est exécuté sur cette version, il me retourne un message d'erreur "erreur d'exécution 13' incompatibilité de type !!    
Quelqu'un peut m'expliquer ce bug et la façon de le contourner SVP car je ne pige pas !!
 
Merci d'avance, Gaston53.