Discussion :

[nicodiablo]

Overflow c'eqt un autre type d'erreur

1.Quelle est la valeur de nbligne?
Quel type de variable est nbligne?

2.Pourquoi nepeux tu pas déclaré le tableau Tldonnee comme Double?

nbligne est un integer.
il me permet à l'ouverture du fichier de savoir le nombre de ligne du csv. ( le nombre d'enregistrements en somme)

parce que si je déclare tbldonnees en double il faut alors que je déclare tblLigneData en double et aussi strLigneData en double ce qui pose un problème pour cette dernière.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Line Input #numFic, strLigneData

[iclic]

Tu peux faire ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim Enregistrement As String
Line Input #numFic, Enregistrement
strLigneData = Val(Enregistrement) 'si strLigneData déclaré Double

[nicodiablo]

Iclic et les autres, merci de votre aide.

A force de relire mon code, j'ai trouvé la dernière faille à savoir que je ne ré-initialisais jamais ma variable "nbligne" au départ de la lecture d'un nouveau fichier !!

Une fois que je le fais ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Open nomFic For Input As #numFic

        nbligne = 0
        i = 0
        Do Until EOF(numFic)
 
            Line Input #numFic, strLigneData
            tblLigneData() = Split(strLigneData, ",")
            Debug.Print UBound(tblLigneData)
            tblDonnees(i, 0) = tblLigneData(1)
            tblDonnees(i, 1) = tblLigneData(2)
            tblDonnees(i, 2) = tblLigneData(0)
            'tblDonnees(i, 3) = tblLigneData(3)
            i = i + 1
            nbligne = nbligne + 1
        Loop
    Close #numFic

Maintenant je peux lire et traiter les fichiers de tous mes patients à la suite!

Encore merci.