Discussion :

[Kaaluu]

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

[Krovax]

Un petit coup de et voila

Code :

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

Workbooks(NomClasseur).Close SaveChanges:=False

ou si tu veux sauvegarder

Code :

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

Workbooks(NomClasseur).Close SaveChanges:=true

[Kaaluu]

Salut Krovax,
Je connais l'aide excel et je n'aurais pas poser cette question si le problème était aussi simple. D'ailleurs ma syntaxe est bonne, le "SaveChanges:=" étant facultatif.

Le pire c'est que même si j'arrrête le debogger a cette ligne et que j'enregistre manuellement, sa marche...

Merci pour ton aide

Kalu

[Kaaluu]

Oki c'est bon j'ai trouvé, en fait le classeur que j'ouvre contient des macro qui se lance a l'ouverture, et excel n'a pas l'air d'aimer beaucoup que je lui supprime son code alors que des userforms sont affichées, par contre je ne comprend toujour pas pourquoi le code bug lorsque je ferme la classeur et pas avant, m'enfin...
j'ai donc juste mis un application.EnableEvent=false et Application.EnableEvent = true et le tour est joué.

Kalu