suppression de modules

[Samir]

bonjour
j'ai 5 modules dans mon fichier, voici le code que j'insere ds le

Private Sub workbook_BeforeClose
Dim VBC As VBComponent
Dim Le_nom As String
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
Le_nom = VBC.Name
Le_nom = Left(Le_nom, 6)
If Le_nom = 'Module' Then
.VBComponents.Remove VBC
End If
Next VBC
End With
end sub

je ne comprend pas prk il efface les modules 2,3 et 5 mais pas le 1 et 4

médé c trés urgent.

Merci a ts

 

[Charly2]

Bonsoir Samir, bonsoir à toutes et à tous

J'ai repris ton code que j'ai placé dans ThisWorkbook en modifiant la déclaration de ta variable objet VBC (XL97), et les 5 modules créés ont été supprimés :

option explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
Dim VBC As Object
Dim Le_nom As String
'
Stop
  With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
      Le_nom = VBC.Name
      Le_nom = Left(Le_nom, 6)
      If Le_nom = 'Module' Then
        .VBComponents.Remove VBC
      End If
    Next VBC
  End With
End Sub

A+