Suppr Code d'une Worksheet par VBA

Bonjour,

Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.Cells.Copy
.Workbooks.Add xlWBATWorksheet
With .ActiveSheet
.Paste
.[A1].Select
End With
.CutCopyMode = False
.ScreenUpdating = True
End With
End Sub

Alain CROS

"Excel...lent" <vpco@free.fr> a écrit dans le message de news: ehylgPnLGHA.2320@TK2MSFTNGP11.phx.gbl...
| Bonsoir la communauté,
|
| Toujours le même " piment " qui vient vous déranger encore un petit peu.
|
| Dans une de mes applic j'ai un modèle que je duplique et renomme une fois
| dupliqué tout en conservant le modèle bien sur...
|
| Dans le modèle il y a un code. Ce code correspond au ComandButton qui se
| trouve sur le modèle. Si je pouvais supprimer d'abord le Button avant de
| dupliquer le problème serait réglé mais en fait je suis obligé de dupliquer
| d'abord et ensuite je supprime ce button sur la copie ( car ce bouton me
| sert sur le modèle à lancer la duplication ) ce qui fait que le code du
| CommandButton demeure dans le module Worksheet de la copie.
|
| Alors question : Est-il possible de supprimer par VBA ce put... de code qui
| ne sert plus à rien sur la copie ?
|
| Merci de vos conseils.
|
| Cordialement.
|
| Excel...lent
|
|

Bonjour "Excel...lent",
exemple suppose selon version dans macro sécurité faire confiance au projet

Private Sub CommandButton1_Click()

ActiveSheet.Copy
ActiveWorkbook.SaveAs "tutut.xls"
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
Do While .CountOfLines > 0
.DeleteLines (1)
Loop
End With

End Sub

'lSteph

"Excel...lent" <vpco@free.fr> a écrit dans le message de news:
ehylgPnLGHA.2320@TK2MSFTNGP11.phx.gbl...

Bonsoir la communauté,

Toujours le même " piment " qui vient vous déranger encore un petit peu.

Dans une de mes applic j'ai un modèle que je duplique et renomme une fois
dupliqué tout en conservant le modèle bien sur...

Dans le modèle il y a un code. Ce code correspond au ComandButton qui se
trouve sur le modèle. Si je pouvais supprimer d'abord le Button avant de
dupliquer le problème serait réglé mais en fait je suis obligé de
dupliquer
d'abord et ensuite je supprime ce button sur la copie ( car ce bouton me
sert sur le modèle à lancer la duplication ) ce qui fait que le code du
CommandButton demeure dans le module Worksheet de la copie.

Alors question : Est-il possible de supprimer par VBA ce put... de code
qui
ne sert plus à rien sur la copie ?

Merci de vos conseils.

Cordialement.

Excel...lent