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 progarmme:
Code:
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.