Par Macro, supprimer tous les GIF

[malabarbe]

Bonjour à tous,

Je copie une page Web dans une feuille Excel,
mais je me retrouve avec une dizaine d'images
au format GIF.

Est-t'il possible de supprimer ces images sachant
qu'une fois copiées dans la feuille, elles n'ont
plus de noms ni d'extentions ?

Si vous avez une idée

 

[Pierrot93]

Re : Par Macro, supprimer tous les GIF

Bonjour,

sans voir les objets, difficile à dire, mais essaye ceci, supprimera tous les objets de type "image", à voir si cela peut t'aider...

Dim s As Shape
For Each s In ActiveSheet.Shapes
    If s.Type = msoPicture Then s.Delete
Next s

bon après midi
@+

 

[malabarbe]

Re : Par Macro, supprimer tous les GIF

Bonjour Pierrot93,

Ok, cela fonctionne parfaitement.

Un Grand Merci

@ +