Modification d'un Code automatiquement

[WDAndCo]

Bonjour le Forum

J'ai ce code sur un onglet :

Private Sub Worksheet_Activate()
MAJ
ActiveWindow.View = xlPageBreakPreview
     Columns("A:I").Select
    ActiveWindow.Zoom = True
Range("H12").Select

End Sub

Cet onglet me sert a en créer d'autres. Mais lors de la copie de cet onglet à l'aide d'une Macro, j'ai un message d'erreur que je n'ai plus si je mets un ' devant MAJ.
Ma question est comment enlever ce ' dans le code de l'onglet après l'avoir copié et traité ?
Ou écrire Call MAJ dans le code

D'avance merci.
Dominique.

 

[Paf]

Re : Modification d'un Code automatiquement

bonjour à tous,

Ca tourne autour !!!

a priori :

If Not ActiveSheet.Name like "Compte Rendu*" then MAJ

A+

edit: désolé pour le doublon

 

[WDAndCo]

Re : Modification d'un Code automatiquement

Bonsoir le Forum et Sourcier08 et Paf merci pour tout sa fonctionne nickel !

Dominique