Macro pour copier données excel vers Word

Bonjour,

Je voudrai avoir votre aide pour créer une macro qui me permettrait d’ouvrir mon fichier word « lettre OPCVM » à partir de mon fichier excel « Tableau des soldes » en reprenant les données de ce dernier des Cellules : B23, C24 et B25 et les placer dans le fichier word dans les emplacements adéquates.
J’ai juste réussi à ouvrir le document WORD sans pouvoir mettre les données dans les emplacements voulus.

Merci.

Bonjour,

ajoute des champs detexte dans ton doc word etfait comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Ajout()   'Récupération des données ValSicav = Cells(23, 2).Value quant = Cells(24, 3).Value Soit = Cells(25, 2).Value   'Ouverture de word et du fichier Dim appwrd As Object Dim docword As Object Application.WindowState = xlMinimized Set appwrd = CreateObject("word.application") appwrd.Visible = True Set docword = appwrd.documents.Add(template:="c:\temp\lettreOPCVM.doc")   'Mise à jour des données docword.Fields(1).Result.Text = quant docword.Fields(2).Result.Text = ValSicav docword.Fields(3).Result.Text = Soit   End Sub

---

Bonjour,

Merci beaucoupr pour ton aide, et c'est nickel !
Juste une dernière question, lorsque j'ai inséré les champs je n'arrive pas à définier la séparation des milliers pour les montants.

Pourtant je les ai défini comme ceci :
pour les quantités :
"Format de nombre : # ##0"

pour les VALSICAV :
"Format de nombre : # ##0,00 €;(# ##0,00 €)"

pour le total SOIT :
"Format de nombre :# ##0,00 €;(# ##0,00 €)"

:?

Bonjour
voici une adaptation pour séparateur en magenta
- à mettre dans ta macro excel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Ajout() 'Récupération des données ValSicav = Format(Cells(23, 2).Value, "#,##0.00") quant = Cells(24, 3).Value Soit = Format(Cells(25, 2).Value, "#,##0.00") 'Ouverture de word et du fichier Dim appwrd As Object Dim docword As Object Application.WindowState = xlMinimized Set appwrd = CreateObject("word.application") appwrd.Visible = True Set docword = appwrd.documents.Add(template:="c:\temp\lettreOPCVM.doc") 'Mise à jour des données docword.Fields(1).Result.Text = quant docword.Fields(2).Result.Text = ValSicav docword.Fields(3).Result.Text = Soit End Sub

---

Le message suivant apparait après avoir avoir apporté les modifications dans la macro excel :

Citation:

---

"Erreur de compilation :
nombre d'arguments incorrect ou affectation de propriété incorrecte."

---

Re-,

Je te mets le deux fichiers comme je les ai modifiés et utilisés.
L'erreur arrive peut-être parce qu'excel ne sait plus trop où il doit prendre les données. Il faudra être plus précis en activant la bonne feuille avant de prendre les données

Code:

---

Sheets("xxx").activate

---

tu l'insère où ta commande dans la macro ? Je ne comprends pas trop.

Bon merci quand même Quest VBa de ton dévouement, je vais faire avec.

Bonne journée.