Discussion :

[plimosin]

Bonjour,


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

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

[CodeFacile]

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


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

Code :

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

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 :

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

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

[plimosin]

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 ?

[CodeFacile]

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

Code :

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

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 :

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

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

[plimosin]

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 :

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

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