Hulk
XLDnaute Barbatruc
Bonjour tout le monde
Je tourne en rond depuis un petit moment, je ne comprends pas pourquoi ce code ne joue pas...
Il devrait supprimer les images dont les noms commencent par "Image" non
Merci de votre aide !
Je tourne en rond depuis un petit moment, je ne comprends pas pourquoi ce code ne joue pas...
Code:
Sub Efface_Picture()
Dim Pic As Shape
Application.ScreenUpdating = False
For Each Pic In ActiveSheet.Shapes
If Left(Pic, 5) = "Image" Then
If Pic.Type = msoPicture Then Pic.Delete
End If
Next Pic
End Sub
Merci de votre aide !