Bonjour,

je cherchais une manière de supprimer tout code, module, .... d'un fichier en VB.

J'ai trouvé ceci
http://www.developpez.net/forums/d56...o/#post3730653
Je veux utiliser la première procédure mais quand je l'exécute, j'ai l'erreur :
1004
La méthode 'VBProjet' de l'objet '_Workbook' à échoué
Voici le code:
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 Supprimer_toutes_macros()
Dim VBC As Object
 
With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
        If VBC.Type = 100 Then
            With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
            End With
        Else
            .VBComponents.Remove VBC
        End If
    Next VBC
End With
 
End Sub
Et voici la ligne en problème :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
With ActiveWorkbook.VBProject
Connaissez-vous un piste de solution pour ce problème?

Un gros merci à l'avance!