Transfert Excel vers Word

Version imprimable

14/05/2014, 12h43
cagouille65

Transfert Excel vers Word

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.
14/05/2014, 21h45
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 €")
14/05/2014, 22h15
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:

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

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:

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"

15/05/2014, 16h39
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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
15/05/2014, 21h45
cagouille65

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