Comment effacer des images avec une macro Résolu

Question

Bonjour,

J'ai des états de comptes en pdf que je convertis en fichier excel. Je dois monter une macro pour remplacer toutes les étapes qu'on fait manuellement et qui prennent du temps. La toute première étape est d'éliminer toutes les images (logo) Est-ce qu'il existe une commande que je pourrais incorporer dans une macro qui chercherait toutes les images et les effacerait d'un coup ? Les images sont identifiées image1.png et image2.png

Merci

Windows / Chrome 138.0.0.0

Bruno83200_6929 · Answer

Bonjour,

Essayez cela :

Sub SupprimerToutesLesImages()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' Parcourir toutes les feuilles du classeur
    For Each ws In ActiveWorkbook.Worksheets
        ' Parcourir toutes les formes de la feuille
        For Each shp In ws.Shapes
            ' Vérifier si c'est une image
            If shp.Type = msoPicture Then
                shp.Delete
            End If
        Next shp
    Next ws
End Sub

Ju@nita · Answer

il n'y a qu'une seule feuille. Je vais essayer ça,. merci

Ju@nita · Answer

ça fonctionne très bien, merci

Comment effacer des images avec une macro

3 réponses

Discussions similaires

Newsletters