Excel Word Signet image

Bonjour,
J'ai un problème avec une macro Excel qui ouvre Word recherche un signet et remplace le signet par une image.
J'ai cherché sur Google des exemples mais cela ne correspond pas.


En quelques mots, j'ai créé une fonction qui prend en argument l'objet WordDocument, le nom du signet et le chemin de l'image.

Mon code cherche si le signet existe et le sélectionne puis après j'ai vu qui fallait utiliser la propriétés InlinesShape.AddPicture mais lorsque je passe ma sélection bookmark cela ne marche pas.

J'ai essayé en enregistrant une macro depuis Word pour copier le code dans ma macro Excel en adaptant un peu.

Pouvez-vous m'aider svp?

Bonjour,
Poser la question dans le forum Word serait sans doute plus judicieux.
Pourrais-tu nous montrer le code que tu as déjà écris et nous indiquer la ligne qui pose problème et éventuellement le code erreur généré.

Désolé, voici mon code.

La ligne qui pose problème est le 'InlineShapes', j'ai essayé de faire générer le code en enregistrant la macro dans Word mais depuis excel, elle ne marche pas après adaptation.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Update_Picture(MyWordDoc As Word.Document, _ MyBookMark As String, _ MyFilename As String)   If MyWordDoc.Bookmarks.Exists(MyBookMark) Then MyWordDoc.Bookmarks(MyBookMark).Select MyWordDoc.Selection.InlineShapes.AddPicture Filename:=MyFilename, SaveWithDocument:=True End If End Sub

---

Bonjour

Citation:

---

Envoyé par phdenis

Désolé, voici mon code.

La ligne qui pose problème est le 'InlineShapes', j'ai essayé de faire générer le code en enregistrant la macro dans Word mais depuis excel, elle ne marche pas après adaptation.

---

Quelle adaptation ?

Si tu n'as pas modifié la ligne d'insertion, c'est que tes objets Word sont mal, ou pas, définis.

Pour le reste, mon vendeur attitré n'a plus de boules de cristal, et la mienne est givrée à cause du froid.

Modifié:

Ton code repris dans Word avec ActiveDocument ne fonctionne pas chez-moi. Ton code, tels qu'il est écrit considère ton MyBookMark comme une variable ou un objet. Ton code ne sélectionne pas le signet. En fait, et tu l'aurais vu en exécutant ton code au pas-à-pas, il considère que ton MyBookMark n'existe pas.

L'enregistreur de macros de Word est pourtant très clair:

Il cherche un signet qui s'appelle "MyBookMark"

Code:

---

Selection.GoTo What:=wdGoToBookmark, Name:="MyBookMark"

---

mais comme personne ne sait si ton MyBookMark est passé comme MyBookMark ou sous un nom quelconque ...

D'autre part, l'enregistreur de macros se rend au signet avec ta ligne mais ne sélectionne pas le signet

Il faut le sélectionner au clavier et l'enregistreur donne cela:

Code:

---

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

---

En somme, tu mélanges des pommes et des oranges.

Mais là je n'ai pas le temps de faire ton débogage à ta place, ni de te faire une solution gratuite et clef-en-main

En regardant l'aide Msn, mon erreur est que dois passer l'objet WordApplication et utiliser la propriété Selection. Pour le bookmark entre guillemets, il s'agit d'une erreur car lors de ma phase de debug j'avais remplacer le chemin par une chaîne du genre "C:\Image.png" afin de m'assurer que le chemin n'était pas le problème.

Je teste demain sur mon programme et je marquais le sujet résolu si tel est le cas.

Après, je sais qu'excel n'est pas une base de donnée mais pour générer 5 documents quasi-identique, il suffit largement.

Pour info, en utilisant l'aide MSDN.

En pré-requis, l'objet Word.Application et l'objet Word.Document ont été crée et un fichier word contenant le signet passé en argument existe.

Voici ma fonction modifiée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Update_Picture(MyWordApp As Word.Application, _ MyWordDoc As Word.Document, _ MyBookMark As String, _ MyFilename As String)   ' Check if the Bookmark exists in the Word.Document Object If MyWordDoc.Bookmarks.Exists(MyBookMark) Then   ' Check if the filename is valid If Dir(MyFilename, vbDirectory) = vbNullString Then MsgBox "Error Filename: " & MyFilename & " doesn't exist!", vbCritical Else ' Select the Bookmark MyWordDoc.Bookmarks(MyBookMark).Select MyWordApp.Selection.InlineShapes.AddPicture Filename:=MyFilename, SaveWithDocument:=True End If End If End Sub

---