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 : Sélectionner tout - Visualiser dans une fenêtre à part
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