Modifier code copier coller

[WITER]

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]

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

 

[pierrejean]

Re : Modifier code copier coller

bonjourWITER

teste:

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

 

[WITER]

Re : Modifier code copier coller

Merci beaucoup, j'ai adapté ma macro avec vos codes