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.
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".
Je n'ai pas compris pourquoi il ne colle pas sur la feuille indiquée dans le code.
Avec mes remerciements anticipées.
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 SubIl 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 SubAvec mes remerciements anticipées.