VBA copier coller un shape

[andrekn13]

Bonjour
j' ai essayé pleins de code et de possibilités, même en passant 20 par l' éditeur de macro, c' est comme s'il ne reconnaissait pas l' objet. C'est important car cet objet contient une macro
voici le code
Sheets("D-FACT FROID").Select
Range("J42").Select
Shapes.Range(Array("Plaque 16")).Application.CopyMode = False
Selection.Copy
Sheets(4).Select
Range("J39").Select
ActiveSheet.Paste
Selection.OnAction = "Validation_Facture"
Range("J42").Select
et évidemment le fichier exemple, pour être sûr de limiter les suppositions
merci beaucoup
et heureusement que ce site est vivant, surtout pour les "bidouilleurs" !!

 

[DoubleZero]

Re : VBA copier coller un shape

Bonjour, andrekn13, le Forum,

Peut-être ainsi :

Option Explicit
Sub Bouton_dupliquer()
    Application.ScreenUpdating = False
    Sheets("D-FACT FROID").Shapes("Plaque 16").Copy
    Sheets("a").Paste Destination:=Sheets("a").Range("J39")
    Sheets("a").Shapes("Plaque 16").OnAction = "Validation_Facture"
    Application.ScreenUpdating = True
End Sub

A bientôt

 

[andrekn13]

Re : VBA copier coller un shape

Bonsoir
merci beaucoup de m' avoir répondu
J'ai galéré un paquet de temps , et en décomposant , même en passant par copiage spécial, oh ! bizarre il ne me propose que en Unicode ou jpg ou "megatext" (un truc de ce genre), et ça marche, mais la qualité du texte s'est dégradée.
Demain jvais essayé ton code
En tout cas merci beaucoup , je commençais à me sentir un seul !!!