Erreur lors fermeture classeur

[Chris57]

Bonjour à tous,

au boulot j'ai créé un classeur nommé "INDEX UP78.xls" qui ne contient que des liens vers nos fichiers de travail.
Ce classeur est en lecture seule pour être ouvert en même temps sur plusieurs sessions, et protégé en modif pour éviter les fausses manip.

Sur ce classeur s'affiche la date du jour et quelques messages d'alerte en fonction de la date, donc lorsqu'on referme le classeur, il demande si on doit sauver les changements.

J'ai donc mis ce code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Workbooks("INDEX UP78.xls").Close SaveChanges:=False
End Sub

Le problème est que lorsqu'on referme un second classeur alors que l'INDEX UP78 est ouvert, cela génère une erreur "Excel doit fermer..."

Quelqu'un a une idée du pb ??

 

[Risleure]

Re : Erreur lors fermeture classeur

Bonjour Chris57, le Forum

Et en mettant

Private Sub Workbook_BeforeClose(Cancel As Boolean)
         ThisWorkbook.Saved = True
         ThisWorkbook.Close
End Sub

A+

 

[Chris57]

Re : Erreur lors fermeture classeur

je test ça demain soir en poste de nuit !

 

[tototiti2008]

Re : Erreur lors fermeture classeur

Bonjour à tous,

Je pense que le problème est que tu es dans Workbook_BeforeClose
Cette macro évènementielle se déclenche quand tu demandes à fermer le classeur, mais dedans, tu mets qu'il faut fermer le classeur, ce qui déclenche de nouveau BeforeClose... etc

je pense que la solution serait plutôt :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
         ThisWorkbook.Saved = True
End Sub

sans redemander à fermer le classeur, il se fermera de toute façon si tu ne met pas Cancel à True