Visual Basic et Excel

youyou08 Messages postés 8 Date d'inscription jeudi 28 avril 2005 Statut Membre Dernière intervention 16 octobre 2007 - 13 févr. 2006 à 02:23
saharbiahmed Messages postés 19 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 15 juin 2006 - 16 févr. 2006 à 17:50
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

1 réponse

saharbiahmed Messages postés 19 Date d'inscription jeudi 16 février 2006 Statut Membre Dernière intervention 15 juin 2006
16 févr. 2006 à 17:50
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
0