VBScript et Excel

[Vincent]

Bonjour,

Je dois piloter Excel via un outil qui s'appelle TestDirector.
Pour l'instant je me débrouille pas trop mal puisque j'arrive à créer un fichier Excel avec un contenu.
Tout cela est codé avec VBScript.

J'ai tout de même quelques problèmes.
En effet, je ne trouve pas la syntaxe qui permet de mettre une bordure sur une plage de cellules.
Je ne trouve pas non plus également la syntaxe qui permet d'ajouter du texte à un commentaire.

Pouvez vous m'aider ?

Merci.

 

[_Thierry]

Bonjour Vincent, le Forum

Ah tiens un peu de VBScript, j'en fais parfois pour certains trucs.

Voici comment je procèdrais à titre d'exemple (Si Excel est déjà ouvert et si le Classeur 'Test.xls' spécifié existe bien avec une 'Sheet1':

Dim xl
Dim WS
Dim WB
Dim UR
Dim CL
Dim N

On Error Resume Next
Set xl = GetObject(, 'Excel.Application')

    With xl
    .Workbooks.Open 'I:\\\\\\\\MC_DEV\\\\\\\\Key_Projects\\\\\\\\VBS_Test\\\\\\\\Test.xls'
    .Workbooks('Test.xls').Worksheets('Sheet1').Activate
    .Visible = True
        Set WB = .Workbooks('Test.xls')
        Set WS = WB.Worksheets('Sheet1')
        Set UR = WS.Range('A1:A10')

    End With

WS.Range('A1').AddComment 'Hello'

For Each CL In UR
    With CL
        For N = 7 To 10
            With .Borders(N)
                .LineStyle = xlContinuous
                .Weight = 2
                .ColorIndex = xlAutomatic
            End With
        Next
    End With
Next


With UR
    For N = 7 To 10
        With .Borders(N)
            .LineStyle = xlContinuous
            .Weight = 4
            .ColorIndex = xlAutomatic
        End With
    Next
End With

Bon Appétit
[ol]@+Thierry[/ol]

 

[Vincent]

Merci _Thierry pour l'exemple de code.
Ca répond déjà pas mal à mon problème. Reste tout de même les bordures.
En effet, je souhaiterai mettre uniquement une bordure extérieure sur une plage de cellules et pas comme dans l'exemple une bordure à chaque cellule.

Vincent.

 

[_Thierry]

Re Vincent, le Forum

En fait c'est assez simple, qui peut le plus, peut le moins...

Dans mon exempple si dessus il y a deux Loops :

1) Pour chaque cellule individuellement en bordure en Weight xlThin (2)

2) Pour le contour de la Plage Globalement en Weight xlThick (4)

Si tu supprimes la première des deux boucles, tu n'auras par conséquent que le contour.

Bon Aprèm
[ol]@+Thierry[/ol]

 

[Vincent]

En effet, autant pour moi ....