Discussion :

[martincactus]

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 :

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

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 :

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

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!

[casefayere]

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 :

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

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

[Godzestla]

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

[mayekeul]

Bonjour,

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

genre

Code :

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

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

[casefayere]

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

Code :

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

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

[casefayere]

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

[ouskel'n'or]

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 :

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

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