Export Excel vers Word (VBA) Pb formatage

Bonjour à tous !

J'utilise une macro vba pour exporter des données d'excel vers Word (PDF) qui marche plutôt bien. En revanche le format ne suit pas. Je m'explique. Une donnée sous forme monétaire dans Excel (1 000 000 €) est transférée comme du texte (1000000). Existe-t-il un moyen de conserver le format lors de ce transfert ? Merci d'avance pour vos réponses et votre aide.

Bonjour,

Vous avez sans doute oublié de publier votre code...

Effectivement, désolé. Voici le code que j'utilise :

Sub export_donnees_dans_word()

Dim wordapp As Word.Application
Dim worddoc As Word.Document
Set wordapp = CreateObject("word.application")
Set worddoc = wordapp.Documents.Open("D:\Documents\Test_Publi\test.docx")

worddoc.Bookmarks("signet1").Range.Text = Range("c2").Value ' cellule excel formatée en monétaire
worddoc.Bookmarks("signet2").Range.Text = Range("d2").Value ' cellule excel formatée en monétaire

worddoc.ExportAsFixedFormat OutputFileName:= _
"_" & ".pdf", ExportFormat:= _
17, OpenAfterExport:=True, OptimizeFor:= _
0, Range:=0, From:=1, To:=1, _
Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=0, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False

worddoc.Close savechanges:=False
wordapp.Quit

End Sub

A défaut :

WordDoc.Bookmarks("signet1").Range.Text = Range("c2").Value & " €" ' cellule excel formatée en monétaire
WordDoc.Bookmarks("signet2").Range.Text = Range("d2").Value & " €"   ' cellule excel formatée en monétaire

Le symbole de l'euro doit être placé avant ou après la valeur ?

Pour le sigle '€' c'est parfait. Merci beaucoup. Il y a t-il un moyen de récupérer le formatage de 1 000 000 € ?

Sans doute mais je n'ai pas assez creusé. Vous aurez peut-être une autre réponse.