Suppression de module, feuilles via le vba

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:

---

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

---

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

:D t'as toutes les réponses dedans:

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

Hello,

Une variante

Code:

---

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

---