Comate

[Bernard]

Bonjour,

Je suis toujours sur Comate, je progresse lentement maintenant mon problème porte sur l'insertion d'une fonction dans une cellule j'essaie ce code qui ne fonctionne pas à cause de quote qui sont incluses avec les références aux cellules.

Code : Tout sélectionner

      
      Cel1.s = "A7"
      Cel2.s = "A9"
      ExcelObject\SetProperty("Cells(10,1)\FormulaR1C1 = '=SOMME("+Cel1+":"+Cel2+")' ")

[Malo]

Voici un bout de code qui devrait répondre à ton attente.
Je préfère employer Range plutôt que Cells, le repérage est plus facile lorsqu'il y a beaucoup de
cellules à remplir .

Code : Tout sélectionner

XIncludeFile "COMatePLUS.pbi"
Define.COMateObject Exl
Exl = COMate_CreateObject("Excel.Application")	
If Exl
	If Exl\SetProperty("Visible = #True") = #S_OK : EndIf
	Exl\GetObjectProperty("Workbooks\Add")
	Exl\SetProperty("Range('A7') =15")	
	Exl\SetProperty("Range('A8') =10")
	Exl\SetProperty("Range('A10') ='=somme(A7+A8)'")
EndIf

Exl\Release()