Discussion :

[retraite83]

Bonjour

je constate une différence de résultat dans une macro VBA qui copie une image d'une feuille à une autre suivant si l'image à copier a été insérée dans la feuille par la fonction Excel : "Insertion/Image/Placer dans la cellule" ou par la fonction "Insertion/Image/Placer sur la cellule"

En fait seule semble marcher la copie si l'image a été insérée par "Insertion/Image/Placer sur la cellule"

Je ne trouve pas d'explication et de littérature claire sur le sujet,

merci de vos lumières expérimentées

[Franc]

Bonjour,
Si vous insérez une image dans la cellule, celle-ci est considérée comme une valeur de cette cellule, donc vous pouvez faire la copie comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Feuil1").Range("A1").CopyPicture
Sheets("Feuil2").Range("B2").PasteSpecial

Si vous l'insérez sur la cellule, elle est considérée comme un objet indépendant faisant partie de la collection Shapes, le code diffère alors quelque peu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Feuil1").Shapes("Image1").Copy
Sheets("Feuil2").Range("B2").PasteSpecial

[retraite83]

OK Merci

pourquoi "PasteSpecial" et pas simplement "Paste" ?

Quel est votre préconisation ?

J'ai pris l'habitude de faire toujours l'insertion sur la cellule et copier en VBA avec un simple "Paste"

un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
pH.Shapes(Sh.Name).Copy
hot.Range("N16").Select
pH.Paste Destination:=hot.Range("N16")

[Franc]

Un peu de littérature sur le sujet: https://pediaa.com/difference-betwee...paste-special/

[retraite83]

Merci

j'en conclu que dans mon cas pour simplement copier une image les 2 solutions sont complétement identiques