Discussion :

[Didier100]

Excel97 - Delphi7 - Colonne en format string

J'ai ecrit un petit bout de programme qui fait une requette sur une base de données Access97 avec delphi 7 via les composants ADO et le résultat de la requette est affiché dans un tableau Excel97.

Une des colonnes de mon tableau contien les N° de telephone des clients.
Le problème c'est que au moment de la insertion du N° de téléphone le premier chiffre du téléphone disparrît quand celui_ci est un 0 (zero).

Comment faire, par le bias de programmation, pour forcer le OleObjet "g_c_ole_application" d'accepter la valeur d'une colonne ou d'une celule comme string et pas comme chiffre?

Un court extraît de mon programme Delphi7:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// autre code ...
g_c_ole_application:= CreateOleObject('Excel.Application');
g_c_ole_application.visible:= Not g_c_ole_application.visible;
l_c_worksheet:= g_c_ole_application.Workbooks.Add(xlWBATWorksheet);
g_c_ole_application.Workbooks[1].WorkSheets[1].Name:= k_my_sheet;
 
// autre code ...
 
//ligne de tritre
g_c_ole_application.Cells[1, 10].Value:= 'DOS_TEL_DOMICILE';
 
// autre code ...
 
g_c_ole_application.Cells[row, 10].Value:= AdoQuery1.FieldByName('DOS_TEL_DOMICILE').AsString;

Quand la valeur de AdoQuery1.FieldByName('DOS_TEL_DOMICILE').AsString est par exemple 0199560101 le champs de la celule g_c_ole_application.Cells[row, 10].Value affiche 199560101 au lieu de 0199560101

Merci d'avance pour votre aide.

[tirex28]

Bonsoir,

Tu peux essayer de mettre cette cellule au format texte avant d'inserer la valeur.

Code :

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

g_c_ole_application.Cells[row, 10].NumberFormat:= "@"

Cordialement,

Tirex28/

[Didier100]

MERCI pour ton aide tirex28