Discussion :

[eric4459]

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 :

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

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

[Patrice740]

Bonjour,

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

Code :

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

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

par

Code :

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

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

mais ça ne fonctionnera pas pour les dates

Patrice

[Marc-L]

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 !

[eric4459]

@ 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 :

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

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

par

Code :

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

... = 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 :

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

Dim Bookmarks as Range

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

Eric

[Marc-L]

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 …

[eric4459]

Merci Marc,
C'est parfaitement ce que je cherchais, j'enregistre le conseil
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 :

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

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