Discussion :

[24 faubourg]

Bonjour à tous,

je travaille sur un pg qui a pour but de transferer des données d'une base de données access dans un classeur excel.
Pour recuperer un prix, j'utilise le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
monExcel.ActiveWorkbook.ActiveSheet.Range("G" & ind).NumberFormat = "#,##0.0000 [$€-1];[Red]-#,##0.0000 [$€-1]"
        monExcel.ActiveWorkbook.ActiveSheet.Range("G" & ind).Value = rsconso.Fields("couthtva").Value

le probleme, c'est qu'il me renvoie une valeur avec 4 décimales mais arrondie à deux chiffres aprés la virgule!
ex: 1,1127 me renvoie 1,1200

Pourriez-vous m'expliquer pourquoi et comment y remedier?
J'ai egalement passé le format des cellules concernées dans excel à 4 chiffres aprés la virgule, rien n'y fait

merci pour votre aide![/code]

[24 faubourg]

J'ai aussi testé ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
monExcel.ActiveWorkbook.ActiveSheet.Range("G" & ind).Value = Format(rsconso.Fields("couthtva").Value, "###,##0.###0")

si je laisse ##0 aprés la virgule, les chiffres inscrits dans excel sont justes, mais tronqués de la dernière valeur du chiffre ex: 1,1157 est réduit à 1,115, ce qui est normal, mais si je passe à ###0 aprés la virgule, je me retrouve avec la valeur 11.157 (c'est bien un point qui est affiché et non plus une virgule)

Merci pour votre aide!