Discussion :

[retraite83]

Bonjour,

je voudrai exécuter le code de Workbook_BeforeClose de manière conditionnel, je ne sais pas si cela est possible.
Dans certains cas je voudrai ne pas exécuter au close du fichier

2 façons de voir les possibilités

1) soit passer un paramètre lors de :

Code :

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

Workbooks(fichier).close

et tester le paramètre au début du BeforeClose pour sortir en sautant le code

2) soit :
exécuter le code si

Code :

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

Workbooks(fichier).close True

et ne pas l'exécuter si :

Code :

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

Workbooks(fichier).close False

[Philippe Tulliez]

Bonjour,
Pourquoi n'effectue pas le test en amont de ta commande Close, cela me parait plus logique

[EDIT]
Un petit exemple d'un fichier qui ne se ferme pas si la cellule nommée pMaintenance a comme valeur VRAI

Tesr logique effectué dans la procédure Workbook_BeforeClose

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Cancel = Me.Names("pMaintenance").RefersToRange.Value
End Sub

et on pourrait ajouter à la ligne suivante l'affichage d'un message

Code :

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

   If Cancel Then MsgBox "Vous êtes en maintenance"

[retraite83]

Bonjour et merci

je ne suis pas sur de tout comprendre dans l'exemple,

en fait je veux fermer le fichier dans tous les cas mais avec ou sans exécution d'une partie du code de Workbook_BeforeClose

C'est à dire pouvoir tester qq chose dans la fermeture pour sauter un morceau de code

[Philippe Tulliez]

Bonjour,
A mon tour de ne pas comprendre ce que tu veux.

Résumons Cancel est un booléen et sa valeur par défaut est False donc si Cancel est à True le classeur ne se ferme pas
J'imagine que tu sais à quel moment tu souhaites que la fermeture se fasse ou pas. C'est donc un test logique

Tu peux donc faire le test directement s'il est simple comme mon exemple le démontre soit en créant une fonction qui renvoie un booléen

[retraite83]

Pour moi la compréhension que j'ai jusqu'à présent c'est que lorsque je code

Code :

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

Workbooks(fichier).close True

le fichier se ferme en enregistrant le contenu du fichier et en exécutant le code de Workbook_BeforeClose

et lorsque je code

Code :

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

Workbooks(fichier).close False

le fichier se ferme SANS enregistrer le contenu du fichier et mais en exécutant quand même le code de Workbook_BeforeClose

Je me rends compte que je n'ai pas bien exprimé ma demande dans mon 1er post et ce je voudrai s'éclairci en lisant tes réponse :

Ce que je voudrai c'est pouvoir différencier mon code dans Workbook_BeforeClose suivant si on est en Close False ou en Close True

[Philippe Tulliez]

Bonjour,
J'en reviens à ma première réponse.
Au lieu de placer la procédure dans Before_Close, je l'exécuterais avant l'instruction Workbooks(fichier).close True