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 :
Merci d'avance pour vos idées et vos réponses.
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
Cordialement
Partager