VBA Private Sub (non reconduit sur feuille copiée)

Bonjour à tous,

Sur une feuille modèle, j'ai un Private Sub ,

Cette feuille est copiée tous les jours et renommée à la date du jour. Ok

seulement, sur la nouvelle feuille, je n'ai plus besoin du Private Sub. (risque de plantage)

Comment faire pour que ce private sub évenementiel ne s'applique que sur la feuille "modèle", et ne soit pas

reconduit sur les feuilles copiées ?

Ou alors, le supprimer sur les feuilles copiées ?

Bonne journée

Amicalement

Claude.

Tu peux tester une condition, du style:

if ActiveSheet.name = "modèle" then
Ton code
Else
exit sub
end if

A te lire,

Souri84

re,

Salut Thibaut,

Je note cette solution, mais n'y a-t-il pas un moyen avec le ThisWorkbook ?

merci

Claude.

bonjour,

voici le code générique :

        With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
            .DeleteLines 1, .CountOfLines
        End With

A placer tout de suite après la copie de la feuille (Le classeur cible étant supposé actif)

On peut aussi par sécurité utiliser

With Workbooks("blabla")... Worksheets("blablabla")...

(Détruit tout le code... Private Sub ou pas...)

A+

re,

Salut galopin01,

Le code générique me va très bien, il laisse les feuilles-code vierges.

merci à vous deux

bon W-E

Claude.