S
Samir
Guest
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
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