XL 2010 [RESOLU] Copier_Coller Image

[cp4]

Bonjour,

J'ai bien trouvé des discussions traitant ce sujet. J'ai pris le code de Dudu2 de cette discussion
Le code ci-dessous fonctionne bien.

Sub Dudu2()
    Dim Image As Object
    Set Image = Sheets("logo").Shapes(1)
    Image.Copy
    Worksheets(ActiveSheet.Index + 1).Activate
    ActiveSheet.Paste Destination:=ActiveSheet.Range("A1")
End Sub

Cependant, pour copier_coller l'image sans activer la feuille de destination il ne fonctionne pas.
Il copie l'image sur la feuille active mais pas sur le feuille "Feuil3".

Sub MonEssai2() ' ne fonctionne pas
'copie sur feuille active
    Dim Image As Object
    Set Image = Sheets("logo").Shapes(1)
    Image.Copy
    Worksheets("feuil3").Paste Destination:=ActiveSheet.Range("A1")
End Sub

Je n'ai pas compris pourquoi il ne colle pas sur la feuille indiquée dans le code.

Avec mes remerciements anticipées.

 

[job75]

Bonjour cp4,

MonEssai2 va bien avec :

    Sheets("feuil3").Paste Destination:=Sheets("feuil3").Range("A1")

A+

 

[Dranreb]

Bonjour.
Parce que vous indiquez comme destination une cellule d'une autre feuille, la feuille active en l'occurrence.

 

[cp4]

Bonjour cp4,

MonEssai2 va bien avec :

    Sheets("feuil3").Paste Destination:=Sheets("feuil3").Range("A1")

A+

Bonjour Job75,

Je me sens ridicule. En effet, avec cette mauvaise habitude de copier/coller du code; elle est source de désagréables surprises. VBA, est bête et discipliné. Il a fait ce qu'on lui a demandé de faire.

Merci beaucoup de m'avoir corrigé mon étourderie.

Bon dimanche.

 

[cp4]

Bonjour.
Parce que vous indiquez comme destination une cellule d'une autre feuille, la feuille active en l'occurrence.

Bonjour Dranreb,

En effet, je m'en suis rendu compte dès que j'ai vu la ligne de code corrigée de Job75.
Merci beaucoup.
Bon dimanche.

 

[job75]

Puisqu'on parle de copier-coller du code, chez moi la commande XLD "Copier dans le presse-papier" ne fonctionne pas depuis longtemps, alors qu'elle fonctionnait au tout début de la nouvelle version.

Et chez vous ?

 

[cp4]

Puisqu'on parle de copier-coller du code, chez moi la commande XLD "Copier dans le presse-papier" ne fonctionne pas depuis longtemps, alors qu'elle fonctionnait au tout début de la nouvelle version.

Et chez vous ?

Non, elle ne fonctionne plus depuis la dernière mise à jour du forum. Je l'ai signalé à David et devait régler le problème. Je crois qu'il est un peu dépassé.

edit: Voici sa réponse du 19 Septembre 2021
Bonjour CP4,
Merci pour l'info, je n'avais pas relevé ce problème.
Je suis en train de chercher une solution pour réparer
Je tiens au courant.
Bonne journée
David