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