Copie feuille sans bouton et macro

[Lionel]

Hello

Je me suis référé au post du lien ci-dessous afin de pouvoir copier une feuille dans un nouveau classeur pour archivage.

Lien supprimé

Je remercie Dan pour son code !

Maintenant mon bouton se trouve sur la feuille à copier ainsi que deux autres d'ailleurs.

Pourriez-vous svp m'aider à compléter le code de Dan afin qu'à la recopie, les boutons ainsi que leur macro ne soient pas pris en compte.

Je vous ai fait un exemple

Merci beaucoup [file name=Quest_20060112134053.zip size=13454]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Quest_20060112134053.zip[/file]

 

[Nevil]

heuuu je sais pas si ca va pouvoir t'aider ou si c'est bien ca que tu demandé, mais voila une idée, j'ai modifié ton module. [file name=arch.zip size=14383]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/arch.zip[/file]

 

[Lionel]

Hello Nevil

En fait, ça se passe comme ça.

Dans test copie j'ai une feuille 'janvier' par ex.
Avec dessus 3 boutons.

Quand je clic sur le bouton archiver, il me copie ma feuille 'janvier' dans un nouveau classeur mais seulement, on ne veut pas copier les boutons qui sont dessus mais juste les valeurs de cette feuille.

Sinon il me copie aussi les boutons ainsi que le code qui va avec et ça j'aimerai éviter.

Merci [file name=Quest1.zip size=13537]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Quest1.zip[/file]

 

[porcinet82]

Salut Lionel, Nevil,

Apres avoir copier ta feuille, execute cette macro, elle supprime tous les boutons ainsi que les images de la feuille.

Sub ZkEff()
Do
On Error GoTo GESTERR
    ActiveSheet.Shapes(1).Select
    Selection.Cut
Loop
Exit Sub
GESTERR:
End Sub

@+

 

[Lionel]

Hello Porcinet82

J'ai oublié les graphes.

Est-il possible que ton code n'efface pas les graphes ?

Merci beaucoup

 

[porcinet82]

re,

Dans la macro, la ligne

ActiveSheet.Shapes(1).Select

le 1, désigne le premier bouton (ou image ou ce que tu veux d'autre), si tu mes 2 (si tu as 1 graphe), ca devrait fonctionner, enfin il me semble.
Je m'étais servis de cette macro pour la meme chose que toi, mais ca fait deja quelques temps, moi j'avais 4 boutons sur la feuille, donc je commencais a 5 et ca fonctionnait.

@+

 

[Lionel]

Oui c'est bien ça merci !