Discussion :

[alexxx69]

Bonjour,

est-il possible par la commande

Code :

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

1
2
 
workbooks("*****.xls").saveas

de n'enregistrer dans un nouveau fichier que le classeur sans code vb ni macro ? ou alors supprimer par une ligne de code l'ensemble du code vb

Merci

[argyronet]

Bonjour,

Le mieux (et le plus simple) est de déplacer ou copier les feuilles dans un nouveau classeur et de l'enregistrer.

Argy

[ouskel'n'or]

Il existe effectivement un code pour effacer tes macros mais ce code restera dans le fichier sauvegardé. La solution de argyronet serait sans aucun doute meilleure mais je crois avoir vu passer une solution (il y a plusieurs mois ) qui permet de le faire. Ne désespère pas.

A+

[ouskel'n'or]

J'ai déjà retrouvé ça pour effacer un module

Code :

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

1
2
3
4
5
Sub SupprimerModule(ModuleName As String)
    'With Workbooks(NomFichierEnregistréSous.VBProject
        '.VBComponents.Remove .VBComponents(ModuleName)
    'End With
End Sub

A MANIPULER AVEC PRÉCAUTION !

Placé dans perso, tu peux "EnregistrerSous NomFichierEnregistréSous" puis supprimer le/les module(s) de ce fichier.
Si tu veux utiliser cette méthode, fais des essais sous une copie de Perso.xls avec des fichiers créés pour l'occasion.
Si vraiment la solution argyronet te pose des pb...

A+

A+

[leroissejp]

Bonsoir,
Essaie ce code pour enregisrer un classeur sans les macros

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
18
 
Sub SupprimeToutVBA()
Dim VbComp As Object
ThisWorkbook.SaveAs "D:\dossier\general\excel\test.xls"
For Each VbComp In ActiveWorkbook.VBProject.VBComponents ' 'suppression vba
Select Case VbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VbComp
Case Else
With VbComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VbComp
 
ActiveWorkbook.Save ' enregistre les suppressions
 
End Sub

jpleroisse

[ouskel'n'or]

Hello leroissejp,

Intéressant ton code. Tu le places où ? Est-il supprimé par la même occasion ?

A+

[leroissejp]

Bonsoir, ouskel'n'or
Je place le code dans un module, ensuite

Code :

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

1
2
3
4
 
Private Sub CommandButton1_Click()
SupprimeToutVBA
End Sub

Dans le module, après ActiveWorkBook.Save tu rajoute ActiveWorkBook.Close

jpleroisse

[ouskel'n'or]

Hello, leroissejp, et merci

Je garde ça en réserve.

A+