1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
<script language="vbscript" type="text/vbscript">
Sub test()
// OBJECT APPLICATION : INSTANCE DE EXCEL
set objexcel = createobject("excel.application")
// OBJECT WOEKBOOK : CLASSEUR EXCEL
objexcel.workbooks.add
// PERMET D'AJOUTER LES COULEURS AU CLASSEUR
objexcel.ActiveWorkbook.Colors(27) = RGB(51, 51, 255)
objexcel.ActiveWorkbook.Colors(28) = RGB(51, 102, 255)
objexcel.ActiveWorkbook.Colors(29) = RGB(102, 153, 255)
objexcel.ActiveWorkbook.Colors(30) = RGB(153, 204, 255)
objexcel.ActiveWorkbook.Colors(31) = RGB(204, 236, 255)
objexcel.ActiveWorkbook.Colors(32) = RGB(255, 255, 255)
// ACTIVE UNE CELLULE : B2
objexcel.cells(2,2).activate
// CODE QUI DOIT PERMETTRE DE CREER UNE BORDURE BAS
objexcel.cells(2,2).Borders(xlDiagonalDown).LineStyle = xlContinuous
// CODE QUI DOIT PERMETTRE DE METTRE LA COULEUR A LA BORDURE
objexcel.cells(2,2).Borders(xlDiagonalDown).Color = RGB(153, 204, 255)
// EXCEL : AFFICHE L'APPLICATION EXCEL
objexcel.visible = true
End Sub
</script> |
Partager