Remplacer une image dans Word depuis Excel en VBA
Bonjour à tous, je voudrais mettre à jour plusieurs fichiers word (du texte et des images) depuis excel. Pour le texte, pas de problème avec le code ci-dessous. Par contre, je n'arrive pas à remplacer une image dans mon fichier word par une nouvelle venant d'excel. Le code devrait trouver l'emplacement de l'ancienne image dans word, la remplacer par la nouvelle venant d'excel et redimensionner cette nouvelle image au format de l'ancienne. J'ai cherché sur le net, mais j'ai pour l'instant pas la réponse. Des idées? Merci d'avance pour votre aide. Frankie666
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Sub UpdateDocs()
Dim oDOC As Object
Dim oWordDoc As Object
Dim wdRng As Object
Set oDOC = CreateObject("Word.application")
oDOC.Documents.Open "C:\Test.docx"
Set oWordDoc = oDOC.ActiveDocument
'Le texte à remplacer est bookmarke dans Word sous le nom "bSfrontdate"
Set wdRng = oWordDoc.Bookmarks(bSfrontdate).Range
wdRng.Text = Range("A1").value 'Remplacer avec le nouveau texte
wdRng.Bookmarks.Add bSfrontdate, wdRng
End Sub |
