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