[R] Insérer une formule dans une cellule Excel
Posté : jeu. 01 juil. 2010 21:28
Bonjour,
Je bute sur l'ajout d'une fonction dans une cellule Excel
J'ai trouvé ce tuto (très bien fait d'ailleurs. Merci à 20100
) :
http://www.autoitscript.fr/forum/viewto ... =11&t=3272
Mais il n'en parle pas
Dans le fichier Excel.au3, il y a bien la fonction "_ExcelWriteFormula" mais je n'arrive pas à la manipuler
Voici mon bout de code :
Et ce qui est bizarre, c'est que @error est à 0.
Dans l'UDF, il est dit :
Mais là, j'obtiens dans la cellule : =SOMME('A1':'B1') et comme il me rajoute des apostrophes, la cellule affiche #NOM?
J'ai essayer de chercher sur google mais je n'ai pas trouvé comment faire.
Quelqu'un aurait il une solution ?
Merci d'avance.
Amicalement.
BM
Je bute sur l'ajout d'une fonction dans une cellule Excel
J'ai trouvé ce tuto (très bien fait d'ailleurs. Merci à 20100
) :http://www.autoitscript.fr/forum/viewto ... =11&t=3272
Mais il n'en parle pas
Dans le fichier Excel.au3, il y a bien la fonction "_ExcelWriteFormula" mais je n'arrive pas à la manipuler
Voici mon bout de code :
Code : Tout sélectionner
#include <Excel.au3>
$fichier = @ScriptDir & "\test.xls"
_ExcelBookOpen($fichier)
$oExcel = ObjGet("","Excel.Application")
$oExcel.SheetsInNewWorkbook = 1
$oExcel.Visible = 1
$test = $oExcel.Activesheet.Cells(1,1).Value
$test2 = $oExcel.Activesheet.Cells(1,2).Value
;msgbox(0,"",$test&" "&$test2)
_ExcelWriteCell($oExcel, $test+$test2, 5, 1)
_ExcelWriteFormula($oExcel, "=SOMME(R1C1:R1C2)", 6, 1)
MsgBox(0,"Error",@error)Dans l'UDF, il est dit :
Voyant que cela ne marchait pas avec R1C1, j'ai essayé avec$sRangeOrRow - Either an A1 range, or an integer row number to write to if using R1C1
; $iColumn - The column to write to if using R1C1 (default = 1)
Code : Tout sélectionner
_ExcelWriteFormula($oExcel, "=SOMME(A1:B1)", 6, 1)J'ai essayer de chercher sur google mais je n'ai pas trouvé comment faire.
Quelqu'un aurait il une solution ?
Merci d'avance.
Amicalement.
BM