I would like to merge somes cells :
Code: Select all
ExcelObject\SetProperty("Range(Cells(1,' + DebutJour + ')\Cells(1,' + (i-1)+debutColonnes + '))\MergeCells = #True ")
(i-1)+debutColonnes = 104
How can I do
Thanks
Code: Select all
ExcelObject\SetProperty("Range(Cells(1,' + DebutJour + ')\Cells(1,' + (i-1)+debutColonnes + '))\MergeCells = #True ")
Code: Select all
TMyCenterHeader.s = "24 Heures"
WriteCenterHeader(ExcelObject,"&"+Chr(34)+"Arial,Fett"+Chr(34)+"&18&" + TMyCenterHeader)