Discussion :

[richard038]

Bonjour,

Je travaille sur une appli qui écrit des données dans un fichier excel.
J'ai un soucis avec les nombres (de type 01, 02...) et les formules (que je ne veux pas gérer, certaines données contiennent un '-' en début de texte, mais je ne veux pas les gérer comme des formules).

J'ai essayé de mettre les cellules au format texte avant d'écrire dedans (en utilisant NumberFormat := '@'). Mais rien n'y fait, les nombres 01,02 sont imprimés 1, 2 dans excel et tout ce qui commence par '-' ou -=' est pris pour une formule.

[TicTacToe]

Il y a toujours la solution de mettre une apostrophe en début...

mais
peux-tu montrer un morceau de code, ou tu formattes tes cellules, et ou tu mets tes valeurs ?

[Dunsany]

Bonjour,

c'est curieux car en utilisant l'enregistreur de macro (qui donne le code suivant) tout se passe bien:

Code :

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

1
2
3
4
5
6
7
 
    Range("A1:D14").Select
    Selection.NumberFormat = "@"
    Range("A1").Select
    ActiveCell = "01"
    Range("A2").Select
    ActiveCell = "02"

Les 0 ne sautent pas...

[richard038]

Mon 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
 
vMSExcel := CreateOleObject('Excel.Application');
vMSExcel.Visible := false;
vMSExcel.DisplayAlerts := false;
vXLWorkbooks := vMSExcel.Workbooks;
vXLWorkbook := vXLWorkbooks.Add;
vWorksheet := vXLWorkbook.WorkSheets['feuil1'];
...
rowNumber := 1;
while (not ClientDataset.eof) do
begin
  // bascule ligne format texte
  vRow := vWorksheet.Rows[IntTostr(row) + ':' + IntToStr(row)];
  vRow.NumberFormat := '@';
  // Creation ligne à copier dans fichier excel
  data := '';
  for j := 0 to FieldCount-1 do
  begin
    data := data +
    Clientdataset.FieldByName(DBfields[j]).AsString)+Chr(9);
  end; 
  // Copie données dans 1ere cellule
  vCell := vWorksheet.Range['A'+IntToStr(RowNumber)];
  vcell.value := data;
  // Bascule toutes les données dans toutes les cellules
  vcell.TextToColumns(vcell, 1, 1, false, true, False, False, false, False);
  inc(RowNumber);
end;

L'apostrophe n'est pas masquée, sinon, je peux ajouter un espace en début de la données, mais je voudrais éviter.

[TicTacToe]

Je me rappelle plus, mais je crois que quelqu'un était déjà tombé sur ce problème, que le formattage '@' ne marchait pas sur son Excel.

Essaye de faire un test unitaire sur une seule cellule, du style,

Code :

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

1
2
3
 
WS.Cells.Item[ 2, 3 ].NumberFormat := '@';
WS.Cells.Item[ 2, 3 ].Value := '0123';

est-ce que le '0' est bien gardé après execution de ce code ?

[Pedro]

Salut
Et en faisant:

Code :

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

1
2
3
 
WS.Cells.Item[ 2, 3 ].NumberFormat := '@';
WS.Cells.Item[ 2, 3 ].Value := '"0123"';

[defluc]

C'est bizarre, chez moi

Code :

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

1
2
3
XlApp := CreateOleObject('Excel.Application');
xlApp.Cells[1,1]..NumberFormat := '@';
XlApp.Cells.[1,1].Value := '-0123';

donne le résultat escompté.

[richard038]

C'est peut être la commande vcell.TextToColumns(vcell, 1, 1, false, true, False, False, false, False); qui fout la zone.

Je vais essayer lundi

Bon week end

[richard038]

C'est bien ça, si je ne fais pas la commande TextToColumns, ça fonctionne