Visual Basic et Excel

Signaler
Messages postés
8
Date d'inscription
jeudi 28 avril 2005
Statut
Membre
Dernière intervention
16 octobre 2007
-
Messages postés
19
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
15 juin 2006
-
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

Messages postés
19
Date d'inscription
jeudi 16 février 2006
Statut
Membre
Dernière intervention
15 juin 2006

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