Discussion :

[plimosin]

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.

[QuestVba]

Bonjour,

ajoute des champs detexte dans ton doc word etfait comme ceci

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
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

[plimosin]

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 €)"

[QuestVba]

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

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
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

[plimosin]

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

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

[QuestVba]

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 :

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

Sheets("xxx").activate

[plimosin]

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

[plimosin]

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

Bonne journée.