Discussion :

[GodOfTrolls]

Salut à toutes et à tous


Je ne suis pas une lumière en VB alors je fais appelle à la commu


Je cherche à insérer dans excel une macro qui supprimerait toutes les macros du classeur excel.


J'ai déjà fait des recherches et j'ai finalement obtenu ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim VBComponent As Object
For Each VBComponent In ActiveWorkbook.VBProject.VBComponents
  Select Case VBComp.Type
    Case 1 To 3
      ActiveWorkbook.VBProject.VBComponents.Remove VBComponent
    Case Else
      With VBComponent.CodeModule
        .DeleteLines 1, .CountofLines
      End With
  End Select
Next VBComponent

Seulement il semblerait que ça ne fonctionne pas... une idée ?

Merci d'avance à tous ceux qui répondront

[Le Pierre]

bonjour

modifie le code de

Code :

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

Select Case VBComp.Type

en

Code :

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

Select Case VBComponent .Type

à plus

[fring]

Bonjour tlm,

Tu peux essayer la procèdure ci-dessous qui supprime toutes les procédures, qu'elles se situent dans un module, dans une feuille ou dans thisworkbook.
Elle se supprime elle même aussi.

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 del_macro()
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

[GodOfTrolls]

Merci les gars je vais tester ça dès que je peux, je vous tiens au courant