Suppression bouton ok mais????

bonjour a tous

dans le code ci dessous qui fonctionne bien, les boutons sont bien effacé mais mon logo l'est aussi et cela n'est pas bien

Dim Shp As Shape
For Each Shp In ActiveWorkbook.ActiveSheet.Shapes
    Shp.Delete
  Next Shp

mon logo est au format jpeg, comment faire pour que le logo ne soit pas effacer

Pascal

Bonsoir

En sachant son nom cela serait plus facile

Dim Shp As Shape
For Each Shp In ActiveWorkbook.ActiveSheet.Shapes
  If Shp.Name <> "LeNom" Then
    Shp.Delete
  End If
  Next Shp

bonsoir banzai64

merci de ta réponse mon logo se nomme "image9" mais j'ai en plus "image2" qui est le logo de l'artisan que je vais joindre

Pascal

bonsoir banzai64

merci de ta réponse, mais je ne sais pas pourquoi j'ai mis ce code c'est celui ci que j'aurai du mettre

For Each sh In ActiveSheet.Shapes
            sh.Select
            sh.Delete
        Next sh

mais en faisant comme tu m'a dit le logo n'est pas effacer

For Each sh In ActiveWorkbook.ActiveSheet.Shapes
  If sh.Name <> "image9" Then
    sh.Delete
  End If
  Next sh

Pascal

Bonsoir

grisan29 a écrit :

le logo n'est pas effacer

C'est bien ce que tu voulais ?

Joins un fichier car je ne sais pas ce que tu veux

D'après ce que je comprends tu aurais 2 images à ne pas effacer exact ?

If sh.Name <> "image9" And sh.Name <> "autreimage" Then

Attention le <> est sensible à la casse : Image9 est différent de image9

bonjour Banzai64

merci de ta réponse, mais je me suis mal exprimer dans mes réponses pourtant le 1er post est correct, en fait il s'agit de sauvegarder une facture sans ses boutons mais en gardant les logos je te joints un classeur où le code fonctionne dessus mais vire tout

autrement tu as tout a fait raison image1 est différent de Image1

Pascal

Bonjour

A tester

bonsoir Banzai64

merci beaucoup ce que tu as fait est très bien RAS même greffé a mon classeur

bonne soirée

Pascal

tout compte fait il y a un souci , sur mon classeur j'ai une Image9(logo) et une Image2(artisan) lors de la sauvegarde le logo disparait et le logo "artisan "devient Image9 , même en ayant changer les numéros des images sur le fichier que tu as joints les 2 Images sont effacés

Pascal

Bonsoir

Je ne comprends pas tout

Dans ton premier fichier les noms, récupérés par le VBA, des images étaient en Anglais (Picture 2, Picture 9) et maintenant les noms sont en français (Image 2, Image 9)

Tu as changé d'ordinateur ?

Je ne connais pas pourquoi et si une personne veut partager ses connaissances ..... merci à elle

En attendant

bonjour Banzai64

Merci de ta réponse, mais c'est exactement pareil en ayant changer le logo il n'y a que celui artisan de conserver, bon je te joints ton fichier avec le nouveau logo pour constat

Pascal

Bonjour

Si ça change chaque fois je vais être à court d'idées

A tester

bonsoir Banzai64

Merci beaucoup pour le dernier fichier qui clos le post car il est parfait après essai

Pascal