Discussion :

[RegiO]

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

[SfJ5Rpw8]

tu ne peu pas utiliser directement les valeurs des constantes excel en vbscript ..

tiens ma fenêtre exécution VBE d'excel te donne leurs valeurs:

?xlContinuous
1
?xlDiagonalDown
5

[RegiO]

Merci beaucoup BBIL pour ta réponse rapide et sans bavure hihi,

cela marche impecablement mieux comme cela. J'avoue que je savais pas quand vbscript les constantes excel ne marchait pas mais maintenant que tu le dis cela me parait tellement logique et évident que je suis honteux mdrrr