arhivage

[FREESURF]

bonjour a tous,

j'utilise une macro d'archivage qui me demande de nommer la nouvelle feuille et qui la recopie dans son integralité. Grace au forun, cette macro fonctionne parfaitement.Or sur a feuille d'origine se trouve le bouton de commande 'ARCHIVAGE'. Je souhaiterais qu'il ne soit pas recopié sur la nouvelle feuille.

Merci pour votre aide

 

[Abel]

Bonjour FREESURF,

Si tu as plusieurs objets dans la feuille, essaie ceci :

Sub SupprimeCB1()
Dim ob As Object
Windows('Classeur2').Activate 'à adapter
For Each ob In Sheets('Feuil1').OLEObjects 'Feuil1 à adapter
If ob.Name = 'CommandButton1' Then ob.Delete
Next ob
End Sub

Code à placer dans le classeur d'origine. Comme ça, il n'est pas présent dans le classeur destination.

Abel.

 

[FREESURF]

Merci de t'etre donné ce mal.
Je vais l'essayer ce soir.
Merci encore et à +

 

[FREESURF]

Bonjour a tous, Bonjour Abel.

la solution que tu me propose fonctionne parfaitement sur differents classeurs.
Ce que je cherche à faire consiste à archver des feuilles sur le meme classeur de maniere à pouvoir effacer et réutiliser la feuille d'origine. Toutefois, le CommandButton1 et les formules ne doivent pas apparaitre sur l'archive.
Merci encore de t'etre donné la peine de me répondre

A+