XL 2016 Copier une feuille dans un autre classeur sans les macros

[dodineau]

Bonjour à toutes et tous,
Je souhaite faire une copie d'une feuille dans un nouveau classeur mais sans les macros attachées à cette feuille.
En effet j'ai 2 macros - "Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)" et "Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)" dans cette feuille.
Je ne trouve pas la commande VBA qui supprimerait les macros après le transfert.
Merci pour vottre aide.
A+

 

[sylvanu]

Bonjour Dodineau,
Le VBA peut s'auto modifier, mais c'est toujours à éviter quand c'est possible.
Peut être deux solutions. Garder vos macros mais interdire leur utilisation si ce n'est pas la feuille source :
1er cas : On regarde la feuille où on est. Si ce n'est pas la feuille source on sort. ( ici appelée FeuilleTravail )
2eme cas : Quand on copie la feuille, on met "copie" dans la cellule A1. On regarde la feuille où on est. S'il y a copie en A1 on sort.

' 1er cas : Par examen du nom de la feuille
Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Name <> "FeuilleTravail" Then Exit Sub
    '...
    ' votre code
    '...
End Sub
' 2eme cas : Par examen de la cellule A1
Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Range("A1") = "Copie" Then Exit Sub
    '...
    ' votre code
    '...
End Sub

A faire évidemment sur les deux macros.

 

[job75]

Bonjour dodineau, sylvanu,

Je souhaite faire une copie d'une feuille dans un nouveau classeur mais sans les macros attachées à cette feuille.

Il suffit que le nouveau classeur soit enregistré en tant que classeur .xlsx (FileFormat:=51)

A+

 

[sylvanu]

Bonjour Dodineau, Job,
Je suis parti de l'hypothèse que cette feuille avait d'autres macros qui devait rester actives. On ne devait désactiver que les Worksheet_BeforeRightClick .
Dans le cas contraire, effectivement la solution xlsx est la plus simple.

 

[dodineau]

Bonjour et merci pour ces réponses.
En fait, effectivement, j'ai d'autres macros actives dans ce nouveau classeur.
Je ne peux donc pas enregistrer en xlsx.
Je dois éliminer certaines macros et en garder d'autres.
J'ai réussi à éliminer les macros non attachées aux feuilles mais impossible de trouver une procédure pour éliminer les 2 macros attachées.
A+

 

[sylvanu]

Bonjour,
dans ce cas utilisez la méthode que je préconise.

 

[dodineau]

Bonjour,
dans ce cas utilisez la méthode que je préconise.

Bonjour,
Je préférerais supprimer les macros qui sont en trop.
Je ne réussit à supprimer les macros attachées.
Merci.
A+

 

[sylvanu]

Bonjour Dodineau,
Je ne vois pas en quoi cette méthode vous rebute. Elle a le gros avantage d'être simple.
Sinon :

Peut-on faire modifier le code d'une macro VBA par une macro VBA ?

Bonjour, Est-il possible de concevoir une macro en vba dont l'objectif et de modifier directement les codes macro ? Pour exemple d'utilisation : mise à jour du moteur vba, ... Dans mon probleme actuellement : je crée un cahier des charge par une utilisateur A (onglet cahier des...

www.excel-downloads.com