Effacer le code VBA d'une "Sheet"

Bonjour,

J'ai un classeur Excel avec plusieurs feuilles. La première, qui s'appelle "Translation" a un bouton qui s'appelle "btnSaveClientFile". Je dois copier la feuille "Translation" dans un deuxième classeur, en enlevant le bouton et le code VBA qui vient avec.

Voici mon code :

Code:

---

1 2 3 4 5 6

Sub SaveClientFile()   btnSaveClientFile.Visible =False ThisWorkbook.Sheets("Translation").Copy   End Sub

---

Le code qui se retrouve dans la feuille "Translation"

Code:

---

1 2 3 4

Private Sub btnSaveClient_Click() Call SaveClientFile   End Sub

---

se retrouve aussi dans le deuxième classeur.

Que faire pour effacer le code VBA dans le deuxième classeur?

Merci à l'avance!

Bonjour,
Je suis loin d'être un champion mais dans un de mes programmes j'utilise ça pour supprimer tous les boutons et le code vba disparait avec :

Code:

---

1 2 3 4 5

Dim Bouton As Shape For Each Bouton In Workbooks(nomfichier & ".xls").Worksheets("feuille active").Shapes Bouton.Delete   Next

---

J'espere que ça t'aidera et que ça marchera

:salut:

Je ne crois pas que le code disparait en supprimant les boutons, mais ce n'est pas genant.

;)

Bonjour,

le plus simple, ne serait-il pas de copier les cellules dans une nouvelles feuille?

genre

Code:

---

1 2	Book1.feuilleoriginale.cells.copy book2.nouvellefuille.cells(1,1)

---

la proposition à Mayekeul est plus simple, quant à la mienne, j'ai vérifié, le code a effectivement disparu, voici la procédure complete :

Code:

---

1 2 3 4 5 6 7 8 9

Sub supboutons() ActiveWorkbook.SaveAs Filename:=rep_dossier & "\" & nomfichier & ".xls", Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Dim Bouton As Shape For Each Bouton In Workbooks(nomfichier & ".xls").Worksheets("facture").Shapes Bouton.Delete   Next End Sub

---

Excusez-moi, voilà seulement que je pense que je travaille sur excel 2007 où les extensions sont différentes or la feuille sans les boutons est enregistrée au format xls que ne reconnait pas of 2007 pour l'activation des macros

Hello casefayere, tu es sûr ? Comme j'étais étonné, j'ai testé. Le bouton disparaît bien mais le code reste.
Je ne vois pas pourquoi mais l'enregistrement préalable a-t-il une importance pour que ça fonctionne ?
@martincactus
Dans la FAQ tu as le code pour supprimer du code par le code.
Teste toujour ça en adaptant noms de classeur et de feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub test() Dim Wb as workbook, NomClasseur As String, NomFeuil As String NomClasseur = ThisWorkbook.Name NomFeuil = "feuil1" Set Wb = workbooks(NomClasseur) with Wb.VBProject.VBComponents(NomFeuil).CodeModule For i = .CountOfLines To 1 Step -1 .DeleteLines i DoEvents Next end with 'Ensuite ou avant... Dim Bouton As Shape For Each Bouton In Worksheets("feuil1").Shapes Bouton.Delete Next End Sub

---

Bonne journée

à ouskeln'or,
bonjour, voit ma derniere réponse, juste avant la tienne, j'ai fauté

@casefayere
Ok. Nos posts se sont croisés.
Je viens de tester ma proposition, elle fait bien ce que je lui ai demandé. Ouf ! :mouarf:

à ouskel'n'or

Par contre j'ai copié ta propo qui me servira certainement, tu m'a déjà rendu bien des services

Merci

Merci pour tout vos réponses!
J'ai essayé le code mais j'ai une erreur à la ligne :

Code:

---

With Wb.VBProject.VBComponents(NomFeuil).CodeModule

---

L'erreur est la suivante :
"Object variable or With Block variable not set"

Est-ce que je dois mettre quelque chose en référence pour utiliser ce code?

Merci!

Excuses-moi mais question bête, as tu bien remplacé nomfeuil par le nom réel de la feuille concernée ? :roll:

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

ThisWorkbook.Worksheets("Translation").Copy 'Destination:=dest '---------------------------- Dim Wb As Workbook, NomClasseur As String, NomFeuil As String NomClasseur = ActiveWorkbook.Name NomFeuil = "Translation" Set Wb = Workbooks(NomClasseur) With Wb.VBProject.VBComponents(NomFeuil).CodeModule For i = .CountOfLines To 1 Step -1 .DeleteLines i DoEvents Next End With 'Ensuite ou avant... Dim Bouton As Shape For Each Bouton In Worksheets("Translation").Shapes Bouton.Delete Next

---

J'obtiens maintenant l'erreur "Runtime error 9 : Subscrit out of range"

Des fois, on précise la ligne de l'erreur, des fois... mais c'est bien ;)

On ne sait pas ce que tu as entre ces deux lignes

Citation:

---

ThisWorkbook.Worksheets("Translation").Copy 'Destination:=dest
'----------------------------
Dim Wb As Workbook, NomClasseur As String, NomFeuil As String

---

Si tu ouvres un autre classeur, ou si tu en crées un et si le code n'est pas dans ce classeur, alors il y a une erreur sur cette ligne

Citation:

---

NomClasseur = ActiveWorkbook.Name

---

Remplace par

Code:

---

NomClasseur = ThisWorkbook.Name

---

Tu dis
A+