Discussion :

[goboben]

Bonjour à tous,

J'ai une macro me permettant de copier un fichier excel (avec saveCopyAs) et qui pour cette copie supprime le code et les modules et les feuilles. Le hic, c'est que qu'il ne me supprie pas tout le bougre. Le code est bien supprimé mais en ouvrant mon nouveau fichier il me demande toujours si je veux activer les macros (et effectivement des modules sont encore présents mais vides). Ayant cherché pendant 2 jours je m'en remet à vous...Peut être quelqu'un a rencontré le problème?

Merci d'avance!

Voici mon bout de code (c'est ce qu'on retrouve dans chaque forum):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For Each VBC In Workbooks(NomFichier).VBProject.VBComponents
        Select Case VBC.Type
            Case 1 To 3
                Workbooks(NomFichier).VBProject.VBComponents.Remove VBC
            Case Else
                With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                End With
        End Select
    Next VBC

[did103]

y a déjà un topic que j'ai initié hier.

t'as toutes les réponses dedans:

http://www.developpez.net/forums/sho...d.php?t=517849

[fring]

Hello,

Une variante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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