Discussion :

[retraite83]

Bonjour,

tout d'abord voici le code objet de ma question

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
...
Application.EnableEvents = False
ActiveWorkbook.Close savechanges:=False
Application.EnableEvents = True

Je veux donc autofermer mon classeur en cours SANS INVITE mais sans réexécuter "Workbook_BeforeClose" en passant sur "ActiveWorkbook.Close"

Tout se passe bien sauf que bien sur que "Application.EnableEvents = True" ne s'exécute pas puisque le classeur est fermé...

Du coup les événements sont désactivés pour le reste de la session et ça ne va pas.

Je pense que mon code n'est pas optimum, on doit pouvoir faire sans recoder un "ActiveWorkbook.Close"

[tototiti2008]

Bonjour,

Je crois qu'il y a incompréhension

Code :

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

Workbook_BeforeClose

s'éxécute quand on a déjà demandé de fermer le classeur, il est donc inutile de demander de fermer le classeur avec un

Code :

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

ActiveWorkbook.Close savechanges:=False

le classeur va se fermer de toute façon

Si on veut éviter la question sur l'enregistrement, soit au moment de fermer le classeur programmatiquement on précise qu'on n'enregistre pas

Soit si c'est une demande de fermeture manuelle de l'utilisateur de fermer le classeur, on précise qu'il faut agir comme si le classeur était déjà enregistré
dans ce cas un truc du genre

Code :

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

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

Devrait le faire

Edit :
Préferer Thisworkbook à Activeworkbook, le classeur actif n'est pas forcément le classeur contenant le code

si on peut éviter l'utilisation des désactivation d'évènements, c'est mieux, c'est toujours un peu dangereux à manipuler

[retraite83]

J'ai testé mais cela ne convient pas complétement

En fait lorsque l'utilisateur clique sur la croix de fermeture en haut à droite de son écran je veux :

1) exécuter du code présent dans le code "Workbook_BeforeClose"

2) ensuite que le classeur se ferme sans enregistrer et surtout sans rien demander à l'utilisateur

c'est le point 2 qui me pose un problème

[tototiti2008]

Re,

En fait lorsque l'utilisateur clique sur la croix de fermeture en haut à droite de son écran je veux :

1) exécuter du code présent dans le code "Workbook_BeforeClose"

Oui tu peux rajouter ton code au-dessus de la ligne Thisworkbool.Saved=True

2) ensuite que le classeur se ferme sans enregistrer et surtout sans rien demander à l'utilisateur

C'est ce qu'est censé faire la ligne Thisworkbool.Saved=True

[retraite83]

Merci, effectivement ça marche bien

Ce qui m'a induit en erreur c'est "ThisWorkbook.Saved=True"

"Save = True" dans ma logique cela enregistre le fichier... et bien non...

[tototiti2008]

Re,

Non, ce qui enregistre c'est Thisworkbook.Save
Thisworkbook.Saved=True veut dire fait comme si le classeur était enregistré, bien qu'il ne le soit pas
(il ne faut plus le modifier après, sinon la demande d'enregistrement réapparait)