Bordures de cellules Excel avec CAWT

 

CAWT (Com Automation With Tcl) est un package basé sur TWAPI qui permet d'automatiser des applications Windows via l'API COM. Actuellement, il gère Excel, Word, PowerPoint, Internet Explorer, Matlab et Google Earth.

GS (20130614) En attendant que cela soit implémenté dans CAWT, si vous avez besoin de fixer l'épaisseur ou le style des bordures de cellule dans Excel, voici comment procéder directement via TWAPI qui est chargé depuis CAWT.

 package require cawt

 set xlsFile test.xls

 # Ouverture d'Excel
 set appId [::Excel::Open true]

 # Création d'un classeur
 set workbookId [::Excel::AddWorkbook $appId]

 # Création d'une feuille
 set worksheetId [::Excel::GetWorksheetIdByIndex $workbookId 1]

 # Attribution d'un nom à la feuille
 ::Excel::SetWorksheetName $worksheetId "TEST"

 # remplissage des cellules B2 et B3
 ::Excel::SetCellValue $worksheetId 2 2 PI
 ::Excel::SetCellValue $worksheetId 2 3 3.14

 # Groupage des deux cellules dans la variable cells
 set cells [$worksheetId range b2 b3]
 set borders [$cells Borders]

 # Contrôle de l'épaisseur du trait. Les valeurs varient de 1 à 4
 $borders Weight 3

 # Contrôle du style de trait (pointillé, plein, alterné)
 # Les valeurs varient de 1 à 13
 $borders LineStyle 4

 # Sauvegarde et au revoir
 ::Excel::SaveAs $workbookId $xlsFile
 ::Excel::Quit $appId