Copier une image dans une feuille et la copier dans une autre en VBA

Boisdurouge Messages postés 8 Statut Membre -  
Boisdurouge Messages postés 8 Statut Membre -
Bonjour,

Comme le dit bien le titre, je voudrais tout simplement copier une image présente dans Feuil2, qu'importe la position dans laquelle elle soit dans la feuille, et la copier dans Feui1, de sorte que le coin supérieur gauche de l'image coincide avec le coin supérieur gauche de la cellule A1.
Je tiens à préciser que j'ai déjà fait une recherche pour une chose aussi basique, mais la totalité des fois où je fais la recherche, je tombe sur des sujets plus complexes, et je suis novice en vba...

Merci

2 réponses

  1. via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Code à adapter :
    Sub copie()
    
        ActiveSheet.Shapes("Image 1").Select ' adapter nom de l'image -celui qui est dans la barre à gauche de la barre de formules
        Selection.Copy
        Windows("Classeur2").Activate 'adapter nom du classseur
        Sheets("Feuil1").Select 'adapter nom feuille
        Range("A1").Select
        ActiveSheet.Paste
    End Sub


    Cdlmnt
    Via
    0
  2. Boisdurouge Messages postés 8 Statut Membre
     
    Merci :)
    0