Discussion :

[babybell]

Bonjour amis du forum

Je sais comment deleter toutes les macros dans une ou plusieurs applis en même temps(grace au forum), mais ce que je ne sais pas, c'est comment, à partir d'une appli, deleter toutes les macros d'une autre appli, et seulement de celle-là.
Existe-t-il un moyen de parvenir à ce nettoyage ?

Merci de votre aide

[babybell]

Ca y est, j'ai trouvé comment, à partir d'une appli, supprimer toutes les macros d'autres appli, sauf celles de cette appli.
Dans mon exemple, le classeur 2, dans lequel je suis, ouvre les Classeurs 1 et 3 dans lesquels il y a des macros et les supprime, sans pour autant supprimer les siennes.

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
19
20
21
22
23
24
25
26
Private Sub Workbook_Open()
 Dim VBC As Object
    Workbooks.Open Filename:="C:\Documents and Settings\BELL\Mes documents\Classeur1.xls"
    GoSub del
    Workbooks.Open Filename:="C:\Documents and Settings\BELL\Mes documents\Classeur3.xls"
    GoSub del
Exit Sub
del:
With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
    If Not ActiveWorkbook.Name = "Classeur2.xls" Then
            If VBC.Type = 100 Then
 
            With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
            End With
 
        Else
            .VBComponents.Remove VBC
        End If
         End If
    Next VBC
End With
Return
End Sub

Bonne soirée à tous