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