Discussion :

[cagouille65]

Bonjour à tous,

J'ai un petit soucis de formalisme lorsque je transfert des données depuis Excel vers Word. Je m'explique :
J'ai un tableau excel avec des formats monétaires. Ces données sont transférées dans un document Word par VBA dans des Champs. Dans mon document Word c'est données sont bien transférées mais elles n'ont plus de format monétaire. Quelqu'un pourrait-il m'expliquer comment les mettre en forme car je n'y arrive pas. J'ai déjà essayé les solutions proposées sur certains site.

Merci à tous d'avance pour vos réponses.

[Ben02]

Bonjour,

D'après ce que j'ai compris, si tu as "4,50 €" dans Excel, cela devient "4,5" dans word.
tu dois donc certainement copier dans word la valeur de la cellule par la fonction : Cells(1, 1).Value.

Si c'est le cas, testes la copie de donnée par la formule suivante : Format(Cells(1, 1).Value, "0.00 €")

[arosec]

Bonsoir,

Autre solution qui a ses avantages et inconvénients:
On copie un range mais sous la forme d'une image. Le "coller" sera dans Word ou ailleurs, sera strictement identique!

Code :

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

1
2
 
Range("A1:G30").CopyPicture Appearance:=xlScreen, Format:=xlPicture

Cdlt,

[cagouille65]

Merci pour vos réponses. Voici ce que j'ai fait : (En rouge dan le code)
Donnez moi vos avis. Peut-être peut-on l'optimiser. En tout cas merci à tous

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
22
23
24
25
26
Dim sdossier As String
 Dim r As Range
 Dim nom_fichier As String
 Dim WordApp As Word.Application
 Dim WordDoc As Word.Document
If Sheets("Données").Range("C2").Value = True Then
    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open("D:\XXX\XXXX\XXX.docx")
    WordApp.Visible = False
    WordDoc.Fields(1).Result.Text = Range("Y4")
    WordDoc.Fields(2).Result.Text = Range("Y5")
    WordDoc.Fields(3).Result.Text = Range("Y6")
    WordDoc.Fields(4).Result.Text = Range("Y7")
    WordDoc.Fields(5).Result.Text = Range("B18")
    WordDoc.Fields(6).Result.Text = Range("M18")
    WordDoc.Fields(7).Result.Text = Sheets("Données").Range("D1")
    WordDoc.Fields(8).Result.Text = Sheets("Données").Range("E1")
    WordDoc.Fields(9).Result.Text = Sheets("Données").Range("F1") & " " & Sheets("Données").Range("g1")
    WordDoc.Fields(10).Result.Text = Range("A1")
    Set r = Range("W18")
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    WordDoc.Fields(11).Result.Text = r
    WordDoc.Fields(12).Result.Text = Range("AE18")
    WordDoc.Fields(13).Result.Text = Sheets("Données").Range("H1")
    WordDoc.Fields(14).Result.Text = Sheets("Données").Range("I1")
    WordDoc.Fields(15).Result.Text = Range("W10"

[Marc-L]

Bonjour, bonjour,

merci de baliser le code via l'icône # conformément aux règles du forum …

Au lieu d'utiliser la propriété Value, tester la propriété Text …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[cagouille65]

Oups!!! désolé pour les balises. Je saurais pour la prochaine fois.