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