Discussion :

[phdenis]

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?

[Philippe Tulliez]

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é.

[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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[clementmarcotte]

Bonjour

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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

[phdenis]

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.

[phdenis]

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 :

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