Discussion :

[drakkar_agfa]

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!

[drakkar_agfa]

ReBonjour,

Avec un peu de recherche j'ai trouvé ceci
http://www.developpez.net/forums/d40...dynamiquement/

C'est tout ce qui me manquait!

Merci quand même!!!