Implémentation de ce code à une macro excel
Bonjour tout le monde, je dois faire une macro qui doit copier une donnée à partir d'une cellule excel vers un document word. Cet élément est dans une zone de text dans le document word ce qui complique la situation. J'ai réussi a remplacer la partie dans le document word à partir d'une macro qui marche dans word. Cependant je n'arrive pas à la faire fonctionner dans excel. Voici le code.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub test()
Dim oSH As Shape
For Each oSH In ActiveDocument.Shapes
oSH.Select
With Selection.Find
.ClearFormatting
.Text = "#123"
.Replacement.ClearFormatting
.Replacement.Text = "Réussi"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
Next oSH
End Sub |
