Discussion :

[Elstak]

Bonjour,

je chercherais à supprimer une macro dont le code est dans une feuille. J'ai trouvé beaucoup de sujet montrant comment supprimer une macro dans un module mais aucune ne permettant de supprimer le code d'une feuille.

Petites précisions :

- La feuille est une feuille copiée d'un autre classeur (le code se trouve donc sur la feuille source qui est dans un autre classeur) et est la seule du nouveau classeur

- En cliquant sur le bouton de la feuille source, il y a copie de la feuille dans le nouveau classeur et suppression du bouton (il n'y a donc plus que le code sur la feuille copiée)

- Le code n'est en fait qu'un appel de procédure du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private sub bouton_click()
      Call ExporterFeuille(Nomfeuille)
End sub

- ExporterFeuille se trouve dans un module du classeur source.


Si il existe une méthode permettant de supprimer tout le code du classeur, cela convient car le seul code à effacer sont ces 3 lignes


Merci de vos réponses

[Elstak]

Hm,

au pire si tu te souviens comment copier un classeur sans code, je peux toujours copier l'integralité du classeur et ensuite faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i to worksheet.count
     if sheets.name <> nomfeuille then worksheets(sheets.name).delete
next

j'ai tapé ca au pif, je suis pas sur du sheets.name

enfin c'etait pour l'idee !

[bidou]

par ex, pour supprimer le code contenu dans Feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Workbooks("Classeur1").VBProject.VBComponents("Feuil1").CodeModule
    .DeleteLines 1, .CountOfLines
End With

[Elstak]

Bidouuuu Bidouuuu (etc....)



Merci

Par contre (vu que t'es un pro t'as le droit à une question subsidiaire), pourquoi quand j'ouvre ma copie où il n'y a plus de code il me demande si je veux activer les macro ??

Il est fou ce excel

[bidou]

tien,il ne me fait pas ça chez moi