VBA : Afficher/Masquer des images dans un pied de page

Bonjour,
J'ai bien parcouru le forum mais ne trouvant pas de réponse à mon problème je demande votre aide.
Mon document possède un pied de page qui contient plusieurs objets activeX de type Image (plus précisément ces objets contiennent des logos).
Je souhaite pouvoir afficher qu'un seul logo en fonction d'une valeur contenu dans un signet lui-même alimenté par une application tiers.
J'ai donc un signet (contenant une certaine valeur) qui exécute la macro suivante à la sortie :

Code:

---

1 2 3 4 5 6 7 8

Sub showHideLogo() If (ActiveDocument.Bookmarks.Exists("wdReference") = True) Then ActiveDocument.Bookmarks("wdReference").Select If (Selection.Text = "test") Then ActiveDocument.Shapes("nomLogo").Delete End If End If End Sub

---

Cette macro me permet de vérifier si mon signet existe suivant sa valeur de supprimer tel image dans mon pied de page, du moins c'est le but.
Le problème que tous mes logos s'affichent car j'ai l'erreur suivante :

Citation:

---

L''élément portant ce nom est introuvable
ActiveDocument.Shapes("nomLogo").Delete

---

Je ne suis pas expert en vba mais je pense que ça doit être possible ?
Merci d'avance pour votre aide!

Bonjour,

Puisque personne ne sait si "wdReference" ,"test" "nomLogo" sont des variables, des noms d'objets ou juste des symboles.

Ces 3 macros marchent.

Code:

---

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

Sub Image() ActiveDocument.Shapes.AddPicture ("C:\Users\Clement Marcotte\Pictures\bitmapinfodesign.gif") ActiveDocument.Shapes(1).Delete End Sub   Sub Image1() Dim limage As Shape Set limage = ActiveDocument.Shapes.AddPicture("C:\Users\Clement Marcotte\Pictures\bitmapinfodesign.gif") limage.Delete End Sub Sub Image2() Dim limage As Shape Set limage = ActiveDocument.Shapes.AddPicture("C:\Users\Clement Marcotte\Pictures\bitmapinfodesign.gif") limage.Name = "Arthur" ActiveDocument.Shapes("Arthur").Delete End Sub

---

Et puis un tour sur MSDN montre que les entêtes et pieds de pages ont leur propre collection de shapes qui semble être indépendante des shapes du document.

Bonjour,
Merci pour ta réponse clementmarcotte!
Effectivement je n'ai pas trop détaillé mon code...
En fait "wdReference" est le nom de mon signet, "test" est la valeur texte contenue dans mon signet et "nomLogo" est le nom de mon objet activeX contenant mon image dans mon pied de page.
Tes solutions ajoutent une image placée en local sur ton disque "c:\" hors dans mon cas les images sont déjà présentes dans mon document et je ne souhaite pas ajouter d'image en local.
Du coup elles ne sont pas applicables dans mon cas. J'ai essayé d'adapter le code mais il ne se passe rien :

Code:

---

1 2 3 4 5 6 7 8

Sub showHideLogo() If (ActiveDocument.Bookmarks.Exists("wdReference") = True) Then ActiveDocument.Bookmarks("wdReference").Select If (Selection.Text = "test") Then ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Shapes("imgSofcareFR").Delete End If End If End Sub

---

Bon après plusieurs tests, le problème provient vraiment du fait que mes images sont dans mon pied de page.
Si je place mon image en dehors de mon pied de page, la macro fonctionne correctement et efface bien l'image souhaitée.
J'ai beau parcourir la MSDN je n'ai toujours pas trouvé de solution pour l'instant...

Bon j'ai finalement trouvé une solution à mon problème qui me permet de supprimer mes images dans mon pied de page à l'ouverture de mon document :

Code:

---

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

Sub AutoOpen()   Dim myImage As InlineShape Dim mySection As Section Dim myHF As HeaderFooter   If (ActiveDocument.Bookmarks.Exists("nomDeMonSignet") = True) Then ActiveDocument.Bookmarks("nomDeMonSignet").Select If (Selection.Text = "maValeur") Then For Each mySection In ActiveDocument.Sections() For Each myHF In mySection.Footers If myHF.Range.InlineShapes.Count > 0 Then 'Si plusieurs images comme dans mon cas For Each ThisImage In myHF.Range.InlineShapes ThisImage.Delete Next End If Next Next End If   End Sub

---

Comme mon document est généré automatiquement depuis une application WEB, il me reste maintenant à trouver comment exécuter la macro à la création de mon document et non à l'ouverture !