Format signet lors transfert données Excel vers Word

[AreYouBush]

Bonsoir le forum,

J'ai un document Word avec des signets pour récupérer des données Excel.
Parmi ses données Excel j'ai des chiffres au format :"0000000000".
J'aimerai qu'une fois arrivé sur word ce chiffre passe au format "00 000 00000"

Exemple du code actuellement utilisé pour renseigner un signet nommé "TEST":

Private Sub CmdButton1_Click()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("C:\Users\AreYouBush\Desktop\test.docx") 'ouvre document Word
WordApp.Visible = True

WordDoc.Bookmarks("TEST").Range.Text = Cells(1, 1)


End Sub

Est ce possible? Si oui peut-on m'indiquer la méthode?


Merci d'avance

Bisous

 

[Dranreb]

Re : Format signet lors transfert données Excel vers Word

Bonsoir
Essayez peut être :

WordDoc.Bookmarks("TEST").Range.Text = Format(Cells(1, 1).Value, "00 000 00000")

À +

 

[AreYouBush]

Re : Format signet lors transfert données Excel vers Word

Merci beaucoup!

Cela fonctionne parfaitement.

Biz A+