Page 1 sur 1

[..] Additionner des cellules Excel ?

Posté : dim. 04 avr. 2010 11:57
par expe2010
Bonjour

je souhaiterais additionner des cellules Excel après les avoir lus dans un fichier.
Avez vous une solution voir meme un bout de code ?
Merci

Re: [..] Additionner des cellules Excel ?

Posté : dim. 04 avr. 2010 17:16
par jbnh
Bonjour,

Un magnifique tutoriel a été réalisé ici mais il est vrai, pas très facile.

A partir de ce tutoriel, j'ai réalisé un bout de code qui devrait vous aiguiller :

Code : Tout sélectionner

Local $oExcel = ObjCreate("Excel.Application")
With $oExcel
    .SheetsInNewWorkbook = 1
    .Visible = 1
    .WorkBooks.Add
    .ActiveWorkbook.Worksheets(1).Name = "ONGLET_SOURCE"
    .ActiveWorkbook.Worksheets(1).Cells(1,1) = "5"
    $test =  $oExcel.Activesheet.Cells(1,1).Value
    msgbox(0,"",$test)
EndWith
 

Re: [..] Additionner des cellules Excel ?

Posté : mar. 06 avr. 2010 10:46
par expe2010
Bonjour

Le code que vous avait transmis n'est pas du tout ce que je recherche!
Je cherche à additionner les cellules d'une feuille Excel pour avoir la somme et non pas créer une autre feuille Excel !
la fonction "Sum" n'apparait pas dans l'aide et je pense que elle n'existe pas, c'est bien dommage.
Si vous avez d'autres suggestions je suis preneur !

Merci quand meme

Re: [..] Additionner des cellules Excel ?

Posté : mar. 06 avr. 2010 11:27
par jbnh
Bonjour,

Dans ce cas, reprenez mon code mais pas avec ObjCreate, mais bien ObjGet. N'oubliez pas qu'il y a une doc.