Format des données Excel exportée dans Word

Bonjour,
J'ai trouvé sur ce forum, un grand merci :), et adapté à mes besoins, du code pour exporter des données Excel dans Word.
L'import se fait correctement sauf pour ce qui est du format de mes données.
J'importe deux type de données, l'un est du type % l'autre du type €, or dans Word les formats ne sont pas conservés.
Par exemple 71.93% devient 0,719299287410926 , 2.81% devient 2,81472684085511E-02 et € 8.420.000 devient 8420000.
Quel code puis-je ajouter à ma macro pour garder le format source?
Faut-il au contraire forcer le format dans Word?

Merci pour aide en ces temps de farniente, pas pour tous surement.

Eric

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub exportWord()   Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim i As Byte   Set WordApp = CreateObject("word.application") ' Set WordDoc = WordApp.Documents.Open("C:\_mon fichier.docx") WordApp.Visible = False For i = 1 To 6   WordDoc.Bookmarks("OLE_LINK" & i).Range.Text = Cells(i + 2, 10)   Next i   WordApp.Visible = True     End Sub

---

Bonjour,

pour les € et les %, si tu n'utilises pas les séparateurs de millier, tu peux essayer de remplacer

Code:

---

... = Cells(i + 2, 10)

---

par

Code:

---

... = Format(Cells(i + 2, 10).Value, Replace(Cells(i + 2, 10).NumberFormatLocal, ",", "."))

---

mais ça ne fonctionnera pas pour les dates

Patrice

Bonjour,

le problème vient de la ligne n°12 incomplète !

Quand un objet de type Range n'a pas de propriété spécifiée, VBA prend souvent pas défaut .Value, rarement .Text …
Donc là pas de bol, il a choisi la première, donc essayer avec la deuxième !

@ Patrice740

Bonjour Patrice,
Cette méthode fonctionne mais pour les valeurs en € je n'obtiens plus de séparateur de millier, ce qui rend la lecture difficile au delà d'un certain montant.
J'ai essayé de remplacer

Code:

---

... = Format(Cells(i + 2, 10).Value, Replace(Cells(i + 2, 10).NumberFormatLocal, ",", "."))

---

par

Code:

---

... = Format(Cells(i + 2, 10).Value, Replace(Cells(i + 2, 10).NumberFormatLocal, " ", ","))

---

Ce qui me donne un résultat satisfaisant pour les valeurs en € mais les valeurs en % sont arrondies ce qui ne convient pas.

Je pense pouvoir résoudre ce problème en utilisant deux macros appelée l'une après l'autre : en travaillant avec l'une sur les données en € et avec la seconde avec les données en %.
Mais n'y-a-t-il pas plus simple?

En tous cas merci pour votre aide

Eric

@ Marc-L

Bonjour Marc,
J'ai essayé d'ajouter

Code:

---

Dim Bookmarks as Range

---

mais sans succès, je ne sais pas à quel objet appliquer une propriété

Eric

Ligne n°12, s'il s'agit bien de récupérer l'affichage d'une cellule : Cells( … ).Text comme indiqué pourtant dans l'aide …

Merci Marc,
C'est parfaitement ce que je cherchais, j'enregistre le conseil :oops:
Eric

A l'attention de ceux que cela pourrait intéresser voici le code qui fonctionne parfaitement, j'ai même testé avec des données au format date sans soucis.

Merci à Marc-L et Patrice740

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub exportWord() 'nécéssite d'activer la référence Microsoft Word xx.x Object Library Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim i As Byte   Set WordApp = CreateObject("Word.Application") 'ouvre session word Set WordDoc = WordApp.Documents.Open("C:\_monfichier.docx") 'ouvre document Word WordApp.Visible = False 'word masqué pendant l'operation   'les signets du document Word sont nommés OLE_LINK1 , OLE_LINK2 ,...,OLE_LINK6   For i = 1 To 6 WordDoc.Bookmarks("OLE_LINK" & i).Range.Text = Cells(i + 2, 10).Text Next i   WordApp.Visible = True   WordDoc.Close WordApp.Quit End Sub

---

Eric