Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modifier code copier coller

WITER

XLDnaute Occasionnel
Re bonjour, j'ai encore un pti probleme dans mon fichier. J'ai une image à la quelle j'ai affecté une macro de copier coller:

Sub Macro1()
'
' Macro1 Macro

With ActiveSheet
.Shapes("Picture 562").Copy
.Paste Destination:=Range("D7")
End With
End Sub

Quan je click sur l'image la macro s'execute, tout fonctionne tres bien sauf que l'image est copier avec l'affectation de la macro . Donc si je click sur la copie, la macro s'execute également. Je voudrais donc juste copier coller l'image , mais que la copie ne soit pas rattachée à la macro.
merci encore pour votre participation
 

CB60

XLDnaute Barbatruc
Re : Modifier code copier coller

Bonjour
De cette façon ça fonctionne:
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/11/2007 par Bruno
'
'
ActiveSheet.Shapes(1).Copy
Range("E2").Select
ActiveSheet.PasteSpecial Link:=False, DisplayAsIcon:=False

End Sub


Edit

Bonjour PierreJean
 
Dernière édition:

pierrejean

XLDnaute Barbatruc
Re : Modifier code copier coller

bonjourWITER

teste:

Code:
Sub Macro1()
'
' Macro1 Macro
 
With ActiveSheet
.Shapes("Picture 562").Copy
.Paste Destination:=Range("D7")
 
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).OnAction = ""
 
End With
End Sub

edit: comme les carabiniers
Salut Bruno
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…