MACRO liaison avec WORD

Bonjour,


Il y a une macro qui permet de lancer le document WORD LettreOPCM à partir du fichier Excel Tableau des Soldes.

Code:

---

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

Sub LETTRE() ' '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:\TRESO\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

---

Ma question est de savoir s’il est possible d’insérer dans la macro qu’en fonction de la cellule B24 du fichier Tableau des Soldes, lorsque c’est indiqué :
• ACHAT, dans le document LettreOPCVM le terme VENTE soit barré
• VENTE, dans le document Word, ACHAT soit barré.

Quelle fonction peut-on utiliser ?

Merci de votre aide.

La réponsé est moi c'est possible.


Voici une trame pour réaliser l'action pour 'barré' les termes Vente ou achat.

Code:

---

1 2 3 4 5 6 7 8

'On teste la valeur de la cellule 'B24 et on affecter la variable posit   dim posit as integer posit = 1 ' par défaut   if Cells(24, 2).Value = "ACHAT" then posit = 32 ' vérifier si Achat commence en position 32 if Cells(24, 2).Value = "VENTE" then posit = 55 ' vérifier si Vente commence en position 55

---

Pour se déplacer dans le tableau :

Code:

---

1 2 3

docword.tables (3).cells ( 1,1).select ' pour se déplacer dans la cellule docword.Selection.MoveRight Unit:=wdCharacter, Count:= posit , Extend:=wdExtend ' pour selectionner le mot qui commence à la N'éme lettre . docword.Selection.Font .StrikeThrough = True 'pour barrer la police

---

A adapter ..

J'ai le message suivant :
"Erreur d'exécution 438 :
Propriété ou méthode non géré par cet objet".

Qu'est-ce qui ne va pas ?

J'ai fait une erreur , la bonne syntaxe pour word c'est :

Code:

---

1 2	docword.tables (3).cell ( 1,1).select ' pour se déplacer dans la cellule du modêle

---

pas de s à cell sur word.
pour débugger et connaitre l'endroit qui pose problème , inserts des flag du type suivant pour savoir où apparait l'erreur.

Code:

---

1 2	msgbox " on est en ligne 24 du code"

---

Bon, là , à l'exécution de la macro, dans le document Word, il me sélectionne uniquement tout le champs " ACHAT / VENTE (rayer la mention inutile)" sans en barrer un des deux mots.

un message d'erreur mentionne la ligne :

Code:

---

docword.Selection.MoveRight Unit:=wdCharacter, Count:=posit, Extend:=wdExtend ' pour selectionner le mot qui commence à la N'éme lettre .

---