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

[retraite83]

Bonjour,
je comprends mieux maintenant ta proposition

le pb est que j'ouvre puis ferme "fichier" (FALSE ou TRUE suivant les cas) dans pas mal de macro.

Comme j'ai une cinquantaine de lignes, l'avantage de le mettre dans Workbook_BeforeClose est de coder (et modifier) à un seul endroit.
Reste le pb de savoir si on est en FALSE ou CLOSE pour tester et différencié le code à la fermeture

J'espère que tu comprends mieux mon pb, pardon de ne pas avoir été très clair dès le début

[Philippe Tulliez]

Bonjour,
Mais rien ne t'empêche de réunir tes cinquante lignes au sein d'une procédure indépendante, c'est d'ailleurs fort recommandé, et avant l'instruction Close, tu invoques cette procédure

Maintenant, il est toujours possible de prévoir une cellule nommée dans une feuille paramètre dans laquelle tu vas écrire VRAI ou FAUX et dans la procédure Before_Close, tu vas lire cette cellule
Une autre solution, est l'utilisation d'une variable Boolean de portée publique

[retraite83]

Bonjour,

je viens de tester via une procédure indépendante, cela marche bien dans le cas de fermeture par macro

Cependant j'ai un pb résiduel, dans ma procédure (ex Workbook_BeforeClose) je teste et exécute le morceau de code voulu

Quand "fichier" est fermé par macro, je peux tester et exécuter le code voulu dans la procédure avant le Close, c'est ok

Mais quand je ferme par la croix en haut à droite de l'écran, la procédure n'est pas déclenchée. Je ne peux pas exécuter le bon bout de code à la fermeture
C'est pour cela aussi que j'avais envisagé pour le code dans Workbook_BeforeClose à la condition de pouvoir savoir d'où on vient

[Philippe Tulliez]

Bonjour,
On ne s'est pas bien compris
Tu dis avoir placé les cinquante lignes de code dans une procédure indépendante. Est-ce une procédure de type fonction renvoyant une valeur booléenne ?

Peux-tu dire en quelques mots ce que fait cette procédure ? Un tri, un filtre, une copie ?
Qu'est-ce qui fait que tu prends la décision de fermer en sauvant ou pas. Est-suite à cette procédure ou pas. Difficile de t'apporter une réponse pertinente sans en savoir plus

C'est un simple problème d'algorithme.

[retraite83]

J'ai mon fichier "A" qui ouvre "B"

"B" est soit en consultation soit en modifs, c'est pour cela que je ferme "B" en FALSE ou TRUE

juste avant l'ouverture de "B" dans "A" j'ouvre "C" pour positionner un top (=1)

A la fermeture de "B" je veux remettre le top = 0 dans "C" si une condition (autre) est vrai, sinon il reste dans l'état (0 ou 1)

[Philippe Tulliez]

Bonjour,

Imaginons que ta procédure de 50 lignes se nomme myProcess et quelle a deux arguments. Tu la transformes en une fonction booléenne comme ci-dessous et juste à la fin, tu dois renvoyer soit True soit False

Code :

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

1
2
3
4
5
Function myProcess(Arg1 As Range, Arg2 As String) As Boolean
  ' Code
  ' Terminer la procédure
  myProcess = True ' Ou False
End Function

Maintenant dans la procédure où tu as écrit la ligne Workbooks(fichier).close True (ou False bien sûr), tu modifies cette ligne par

Code :

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

Workbooks(fichier).close myProcess(Arg1, Arg2)

donc le résultat de ta procédure fera en sorte que l'on sauve ou pas le fichier

Maintenant si le fait que tu sauves ou pas dépend de deux conditions, tu intègres l'appel à la fonction dans un And. En imaginant que Process est une variable qui vaut 1 si tu as ouvert le fichier B pour une modification et 0 si c'est une consultation

Code :

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

Workbooks(fichier).close myProcess(Arg1, Arg2)=True and Process=1

[retraite83]

Merci

j'ai un autre cas :

j'ai un fichier F que je copie en F'

A la fermeture de F' je ne veux pas exécuter "Workbooks_BeforeClose" (qui vient de F) :

1) soit désactiver "Workbooks_BeforeClose"

2) soit supprimer "Workbooks_BeforeClose" Je sais supprimer un module par macro mais est-ce possible avec "Workbooks_BeforeClose"

Le fichier F' est supprimé après traitement