Probleme entre Excel & C++ Builder

Salut,

Je tente avec C++ builder 6 de transférer le résultat d'une requete
quelconque dans une feuille de calcul Excel (j'ai déjà réalisé ça avec
Delphi 6 sans problème). Lorsque j'envoie des valeurs "numériques", le
transfert se passe sans problème par contre dés qu'il s'agit de transferer
du texte, j'obtient le message suivant : "Le projet xxxxxxx a provoqué une
classe d'exception EOleSysError avec le message 'Type de variable
incorrect'. Processus stoppé, etc......".

void __fastcall TFormReq::ToolButton4Click(TObject *Sender)
{
Variant Excel = Variant::CreateObject("Excel.Application");
Excel.OlePropertySet("Visible", true);
Variant WorkBooks = Excel.OlePropertyGet("WorkBooks");
Variant WorkBook = WorkBooks.OleFunction("Add");
Variant WorkSheet = WorkBook.OlePropertyGet("ActiveSheet");

Query->First();
int Ligne = 1;

Variant Cell, Valeur;
while (!(Query->Eof))
{
for (int Colonne = 0; Colonne < Query->FieldCount; Colonne++)
{
Cell = WorkSheet.OlePropertyGet("Cells", Ligne, Colonne+1);
Valeur = Query->Fields->Fields[Colonne]->AsVariant;
Cell.OlePropertySet("Value", Valeur);
}
Ligne++;
Query->Next();
}

Excel = Unassigned;
}

L'un de vous peut il m'aider?

Merci d'avance.