Copier une feuille et supprimer le code

[degap05]

Bonjour,

J'ai mis en place cette macro dans une des feuilles d'un classeur.

Celle-ci crée un nouveau classeur avec la feuille active copiée et supprime le bouton qui se trouve sur la feuille. Par contre le code n'est pas supprimé. Quel ajout pour cette action ?

Merci.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
With Target
ActiveSheet.Copy
ActiveSheet.Shapes(1).Select
Selection.Cut
ActiveSheet.SaveAs ("E:\Classeur1\Mes documents\Test.xls")
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End With
End If
End Sub

 

[Dull]

Re : Copier une feuille et supprimer le code

Salut degap05, le Forum

As tu regardé les discussion similaire en bas de pages?

regardes plus précisément ce lien

Bonne Journée

 

[degap05]

Re : Copier une feuille et supprimer le code

Bonjour, merci, c'est résolu.🙂