Discussion :

[marcuselli]

Bonjour

Je débute en VBS et j'ai un cas qui pour certains risque de paraître assez simple.
Je m'explique :
J'ai un fichier dans lequel j'ai plusieurs valeur du type :
3.000
5.000
8.652
.....

Je souhaiterais simplement faire la somme de toutes ces valeurs.
J'arrive déjà à toute les récupérées dans un tableau mais lorsque je les additionne, j'obtiens par exemple : 3.0005.0008.652....
Voici mon code (surement pas bon et pas optimisé !!) dans lequel je fais juste le test avec deux valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFichier_in = objFSO.openTextFile(nom_fichier_in).ReadAll
arrlignes = split(objFichier_in,vbcrlf)
compteur = UBound(arrlignes)
 
Capacity = arrlignes(0)+arrlignes(1)
 
msgbox Capacity

Merci d'avance pour vos idées et vos réponses.

Cordialement

[pc75]

Bonjour,

Code :

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

1
2
 
Capacity = cDbl(arrlignes(0)) + cDbl(arrlignes(1))

[marcuselli]

Bonjour

Merci pour la réponse !
Mais j'ai toujours une erreur :
Error: Type mismatch: 'cdbl'
Code: 800A000D

auriez vous une idée ?

Merci d'avance

[omen999]

bonjour,
cela signifie qu'un des éléments du tableau arrlignes() ne peut pas être évalué sous la forme d'un nombre
il faut les tester avant avec la fonction IsNumeric
par exemple dans une boucle for...next qui vérifiera le tableau

Code :

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

If Not IsNumeric(arrlignes(n)) Then  Exit For