[VBS] - Mise en page d'Excel (Bordure de cellule)
Bonjour à tous,
j'ai un petit souci pour mettre en page un classeur Excel à l'aide de VBScript.
Je voudrais mettre une bordure solide avec une couleur pour cette bordure.
J'ai mis ce code :
Code:
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> |
Lors que je clique sur le bouton qui est relié à la fonction test(), j'ai une erreur : Erreur d'execution inconnue
Cette erreur n'apparait que lorsque je met la ligne (ou l'autre ligne ou les deux lignes) qui sont en rouge, le reste marche trés bien.
Merci d'avance de votre aide.
RegiO
