XL 2010 [RESOLU] Copier_Coller Image

cp4

XLDnaute Barbatruc
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.
VB:
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".
Code:
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.
 

Pièces jointes

  • Copier_Coller_Image.xlsm
    25.3 KB · Affichages: 5

cp4

XLDnaute Barbatruc
Bonjour cp4,

MonEssai2 va bien avec :
VB:
    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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
2
Affichages
355

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll