Vba: Excel >Word , Probleme de decimales

Résolu
flostralian Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -  
flostralian Messages postés 26 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je me tourne vers vous car après de longues recherches sur les forums, je n'ai toujours pas réussi a résoudre mon problème.
J'ai un classeur avec de nombreuses données qui sont exportées via des signets dans un modele Word.
Le code marche très bien et le transfert se fait sans problème.
Cependant, les nombres qui sont a 2 décimales dans Excell apparaissent sous Word avec une dizaine de décimale.
Je n'ai besoin que de 2 décimales dans mon document word.
Extrait du code vba qui permet d'exporter une donnée via des signets:

WordDoc.Bookmarks("dif1").Range.Text = Worksheets("baseline").Cells(..,..)


Que dois je integrer dans mon code Vba afin d'avoir seulement 2 decimales dans Word?
Merci de votre aide
Florian


3 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

Essaie :
WordDoc.Bookmarks("dif1").Range.Text = _
Format(Worksheets("baseline").Cells(..,..), "0.00")
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
= Round(Worksheets("baseline").Cells(..,..) ,2)

J'ai pas tester, si ça va pas tu dis.
A+
0
flostralian Messages postés 26 Date d'inscription   Statut Membre Dernière intervention  
 
Merci a vous deux pour cette reactivite, et de ces informations pertinentes.
Ca marche !
Merci
Florian
0