Discussion :

[jihad]

bonsoir communauté developpez.com
je vous remercie infiniment pour l'aide précieuse que vous m'avez apporté
je reviens pour vous poser un autre problème

j'utilise le code suivant pour insérer une image au niveau d'un signet

Code :

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

MonWd.InlineShapes.AddPicture(FileName:=Application.StartupPath & "\compte-rendu_word\image.bmp", range:=MonWd.Bookmarks("signet").Range, LinkToFile:=False, SaveWithDocument:=True)

l'image est insérée mais le texte du signet reste visible

si j'essaie de supprimer le signet, en utilisant le code suivant:

Code :

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

 MonWd.Bookmarks("signet").Range.Text = ""

l'image et le signet disparaissent!!!!!

Comment insérer l'image au niveau d'un signet en supprimant le texte du signet?

[Sankasssss]

Bonsoir,
et si tu fais d'abord :

Code :

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

MonWd.Bookmarks("signet").Range.Text = ""

puis ca :

Code :

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

MonWd.InlineShapes.AddPicture(FileName:=Application.StartupPath & "\compte-rendu_word\image.bmp", range:=MonWd.Bookmarks("signet").Range, LinkToFile:=False, SaveWithDocument:=True)

???

[jihad]

malheureusement , cela ne fonctionne pas et génère une erreur vu que le signet est supprimé par la première instruction

je pense plutôt à chercher le texte du signet le sélectionner puis le supprimer.
mais je ne sais pas comment le faire.

[Sankasssss]

et pourquoi tu mets du texte dans tes signets?
Tu peux faire des signets sans texte...

[jihad]

merci
ca marche