Enregistrer une image en fonction d'un mot

bonjour à tous,

je recherche à réaliser une macro qui enregistre une image en fonction d'un mot , ci-joint mon fichier

merci pour votre aide

fichier protégé : 49212

Bonjour noob40,

Merci de faire une recherche un peu plus approfondie avant de faire un post sur le forum la prochaine fois. Surtout que tu sais comment fonctionne le forum, nous sommes là pour aider, pas pour faire à la place. Surtout que c'est pas une macro très difficile là...

Bref, ta macro devrait ressembler à quelque chose comme cela :

Sub CopieImage()

   If Worksheets("Accueil").Range("G2").Value = "anom" Then

      'Code pour copier image

   End If

End Sub

Bonne journée,

Baboutz

Merci pour le rappel et un grand merci pour la réponse

bonne journée

Pas de soucis

Essai cette macro pour copier l'image :

    'Déclaration des variables
    Dim Sh As Shape

    'Duplication de l'image
    Set Sh = Worksheets("Accueil").Shapes("Image 32").Duplicate

    'Coupé/collé de l'image dupliqué
    Sh.Cut: Worksheets("Feuil2").Paste

    'Vide la variable objet -> Allège la mémoire
    Set Sh = Nothing