Visual Basic et Excel

Bonjour tout le monde

Je suis face a un probleme j'ai creer une application Visual Basic qui va chercher des donnée dans une base SQL Server et les envoie dans un fichier excel.
Le probleme c que J ARRIVE PAS A ENVOYER DES DONNES AU FORMAT DOUBLE OU MONETAIRE, je peux envoyer des entier et des string mais pas de double et long et currency pour envoyer les données j'utilise l'instruction WriteLine : voici un exmple

a.writeLine "C;Y" & Ligne & ";X23;K" & qty_sg

Le probleme c que ca marche pas si qty_sg est un Double ou un  Currency, vb envoie la valeur dans la feuille excel mais excel n'arrive pas à lire la cellule

Merci d'avance
 

VITAMINE A

salut
je pense cette exemple vous sera utile

   Dim xls As Excel.Application
    Dim x As Double
   
    x = 125111521.125541   ' a titre d'exemple
   
    Set xls = CreateObject("Excel.application")
    xls.Visible = True
   
   
    xls.Workbooks.Open "c:\NomDeFichierExcel.xls"
    xls.ActiveWorkbook.ActiveSheet.Range("a1").Value = x