Vba: Excel >Word , Probleme de decimales

Résolu/Fermé
flostralian Messages postés 26 Date d'inscription vendredi 15 mai 2009 Statut Membre Dernière intervention 26 mars 2015 - 24 mars 2011 à 16:16
flostralian Messages postés 26 Date d'inscription vendredi 15 mai 2009 Statut Membre Dernière intervention 26 mars 2015 - 24 mars 2011 à 18:11
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
24 mars 2011 à 17:36
Bonjour,

Essaie :
WordDoc.Bookmarks("dif1").Range.Text = _
Format(Worksheets("baseline").Cells(..,..), "0.00")
0
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 mars 2011 à 17:36
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 vendredi 15 mai 2009 Statut Membre Dernière intervention 26 mars 2015
24 mars 2011 à 18:11
Merci a vous deux pour cette reactivite, et de ces informations pertinentes.
Ca marche !
Merci
Florian
0