Copier un shapes.....

[joums]

Bonjour à tous,

Tout d'abord merci à tout les "forumeurs" pour leur aide.

J'ai une macro qui copie des dessins (shapes) d'une feuille à une autre
jusque là tout vas bien

 Sheets("dessin").Select
    ActiveSheet.Shapes("Oval 1").Select
    Selection.Copy
    Sheets("Feuil1").Select
    Range("C13").Select
    ActiveSheet.Paste

mais le soucis est que lors de la copie on apercoit la feuille d'origine du shapes 🙁

J'aurai aimé savoir s'il était possible de copier un dessin sans voir son origine

Merci

voici une petit fichier de démo

 

[Épaf]

Re : Copier un shapes.....

Fais précéder ton code de la ligne

Application.ScreenUpdating = false

Que tu refais passer à true à la fin de la macro
Bonne journée

... si j'ai bien compris ton problème 😉

 

[Guest]

Re : Copier un shapes.....

Bonjour,
A partir de la feuille dans laquelle tu veux coller, appelle la macro

Sub CollerOval()
Sheets("dessin").Shapes("Oval 1").Copy
Range("C13").Select
ActiveSheet.Paste
End Sub

A+

 

[joums]

Re : Copier un shapes.....

Merco de vos réponses......
mais cela ne fonctionne pas hélas

lors de l'éxécution de la macro on apercoit toujours la feuille d'origine

 

[Guest]

Re : Copier un shapes.....

re,

Alors là il faut préciser,

Si c'est rendre la feuille 'dessin' non visible, c'est autre chose:
Sheets("dessins").visible=false

Ce que je t'ai donné fonctionne, sans activation ni selection de la feuille 'dessin'!

A+

 

[joums]

Re : Copier un shapes.....

Désolé, je m'étais peut etre mal exprimé

Effectivement ton code marche lorsque la feuille "dessin" n'est pas visible

Autant pour moi, j'ai refait le test avec vos 2 codes et cela marche
encore merci à vous 2
A +
Bonnes fetes