Vba: Excel >Word , Probleme de decimales
Résolu
flostralian
Messages postés
32
Statut
Membre
-
flostralian Messages postés 32 Statut Membre -
flostralian Messages postés 32 Statut Membre -
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
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
A voir également:
- Vba: Excel >Word , Probleme de decimales
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
3 réponses
Bonjour,
Essaie :
WordDoc.Bookmarks("dif1").Range.Text = _
Format(Worksheets("baseline").Cells(..,..), "0.00")
Essaie :
WordDoc.Bookmarks("dif1").Range.Text = _
Format(Worksheets("baseline").Cells(..,..), "0.00")