Discussion :

[gorka]

Bonjour à tous,

J'ai quelques soucis pour changer la largeur d'une colonne. Je suis sous delphi 7 et j'utilise Excel2000.pas.

J'ai vu sur différents site que le fait de changer la valeur d'une cellule changeait toute la colonne. Du coup je récupère une cellule et je change sa valeur.

Code Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
//Création d'un nouveau classeur
FXlsApplication:=TExcelApplication.Create(nil);
FWorkbook:=FXlsApplication.Workbooks.Add(xlWBATWorksheet,0);
 
//Changement de la valeur de la colonne
Worksheet:=FWorkbook.Worksheets[aWorkSheetName] as  _Worksheet;
CellName:=IntToStr(index)+'1';
Worksheet.Range[CellName,CellName].ColumnWidth:=aValue;
// Worksheet.Range[CellName,CellName].EntireColumn.ColumnWidth:=aValue;

J'ai eu deux types d'erreurs:
- Le projet XXX a provoqué une classe d'exception avec le message d'erreur 'Erreur Ole 800A03EC'

- Impossible de définir la propriété ColumnWidth pour la classe Range

Merci

[ShaiLeTroll]

As-tu une propriété EntireColumn dans ton Range ?
Je n'utilise Excel qui via le LateBinding, en suivant l'interop décrit par la MSDN ou via FlexCell
qui permet de modifier un fichier sans avoir Excel d'installer !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheet.Range[CellName,CellName].EntireColumn.ColumnWidth:=aValue;

800A03EC
8 = Failure
A = Erreur de Type contrôle
3EC = 1004 = ERROR_INVALID_FLAGS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CellName:=IntToStr(index)+'1';

C'est assez étrange, une cellule Excel, c'est plutôt A1 ... A255 mais pas un simple chiffre comme 01, 11 ...

[gorka]

Oui j'ai bien une propriété EntireColumn et ColumnWidth dans ExcelRange (=dispinterface):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
property EntireColumn: ExcelRange readonly dispid 246;
property ColumnWidth: OleVariant dispid 242;

Pour ce qui est de l'erreur "Ole 800A03EC" ca venait bien d'une erreur de part, j'ai bien changé "IntToStr" pour que CellName soit bien une cellule valide.
Merci pour ta remarque, par contre, maintenant j'ai bien ma seconde erreur:
"Impossible de définir la propriété ColumnWidth pour la classe Range" que ce soit l'une ou l'autre ligne suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Worksheet.Range[CellName,CellName].ColumnWidth:=aValue;
Worksheet.Range[CellName,CellName].EntireColumn.ColumnWidth:=aValue;

[ShaiLeTroll]

ColumnWidth s'exprime en nombre de caractère et utilise la taille du caractère de la Font pour calculer le nombre réel de point
Si tu n'as pas d'objet Font dans ton fichier, cela pourrait poser problème
As-tu essayé de modifier la colonne d'un fichier existant créer par Excel
As-tu essayé de modifier le contenu d'une colonne puis d'affecter ColumnWidth

Width, en lecture seule, te renvoie le nombre calculé

[gorka]

ColumnWidth et Width me retourne bien une valeur (11 et 0 si case vide).

En créant un fichier à partir d'Excel, ca n'a rien changé j'avais toujours la même erreur en changeant la taille de la colonne. Par contre, si je modifie la valeur de la cellule puis je modifie ColumnWidth ca marche. Mais, Entire.ColumnWidth ne marche pas, ce qui n'est pas gênant car toute ma colonne est modifiée.

En fait, l'erreur ne vient pas d'une faute d'implémentation mais que la valeur de la colonne que j'attribuais était trop grande. Donc ca marche désormais sans passer par la modification de la cellule avant.

Merci