Bonjour forum,
je désire ouvrir un classeur, le vider de tout son code vba ( code, module, ...). Dans ce classeur (qui est protégé) il y a un feuille non-visible et quelque feuille protégées. Voici un bout de mon code :

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
Workbooks.Open CheminClasseur & NomClasseur
Dim VBC As Object
 With Workbooks(NomClasseur).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
 
Application.DisplayAlerts = False
Workbooks(NomClasseur).Unprotect
Workbooks(NomClasseur).Close True
Application.DisplayAlerts = True
Alors en mode pas a pas sa bug a la ligne->
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Workbooks(NomClasseur).Close True
, et arrive alors une fenêtre "Excel a rencontré un probleme et doit fermer..."

Si quelqu'un a déjà rencontrer ce probleme ou a une idée je suis prenneur.

Kalu