Discussion :

[Mygush]

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 :

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

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 :

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!

[clementmarcotte]

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 :

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

[Mygush]

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 :

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

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

[Mygush]

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

[Mygush]

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 :

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