Private Sub Workbook_BeforeClose(Cancel As Boolean)

Bonjour,

j'ai une macro "Macro" dans un classeur "C1"qui fonctionne très bien, en particulier elle ouvre un classeur "C2"

Je veux maintenant appeler cette macro à la fermeture de mon classeur "C1"dans la procédure "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
j'ai donc codé dans cette procédure :

Code:

---

1 2	Call module4.Macro

---

Le pb est que dans aussi dans cette procédure à la fin :

Code:

---

ActiveWorkbook.Close savechanges:=True

---

pour enregistrer et fermer sans intervention de l'utilisateur

Du coup le close réappelle une seconde fois "Private Sub Workbook_BeforeClose(Cancel As Boolean)" et ça coince

Bonjour,
Soit tu revois la logique de tes procédures soit tu prévois un argument booléen à la procédure nommée Macro du Module4 permettant ainsi de fermer ou pas le classeur

Oui, j'en suis arrivé aussi à cette conclusion, en fait je vois comme solution faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Workbook_BeforeClose(Cancel As Boolean) ...   'définir un argument (surement booléen) à une valeur 1   If argument = 1 then Call module4.Macro Else End If argument = 0 ' pour ne pas ré-exécuter Macro lors du close déclencher par "ActiveWorkbook.Close savechanges:=True"   ... ActiveWorkbook.Close savechanges:=True End Sub

---

Mais aucune idée pour l'instant pour coder ça

En plus cela ne me parait pas très clean comme logique

PS : en retirant

Code:

---

ActiveWorkbook.Close savechanges:=True

---

cela marche bien évidemment, mais j'ai le message invitant à enregistrer ou pas le classeur, ce que je veux éviter

Bonjour,

Citation:

---

cela marche bien évidemment, mais j'ai le message invitant à enregistrer ou pas le classeur, ce que je veux éviter

---

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close SaveChanges:=False End Sub

---

Je me suis mal exprimé :

dans :

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)

---

je veux exécuter ma macro "Macro" (module4)

puis fermer le classeur en forçant l'enregistrement et sans que l'utilisateur ait le message lui demandant d'enregistrer ou non le classeur d'où:

Code:

---

ActiveWorkbook.Close savechanges:=True

---

Mais ce close apparemment réexécute

Code:

---

Private Sub Workbook_BeforeClose(Cancel As Boolean)

---

et du coup "Macro"

Bonjour,
Si j'ai compris ta question

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_BeforeClose(Cancel As Boolean) Static c As Integer c = c + 1 If c = 1 Then Module4.Macro ThisWorkbook.Close SaveChanges:=True End If End Sub

---

Presque mais cela m'a permis de résoudre mon pb:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Workbook_BeforeClose(Cancel As Boolean) Static c As Integer c = c + 1 If c = 1 Then Module4.Macro End If ThisWorkbook.Close SaveChanges:=True End Sub

---

Je n'avais jamais utilisé "Static" et j'avoue ne pas savoir pourquoi ça marche, je vais regarder

Je suppose c = 0 au début et + 1 à chaque appel de la macro, mais où est conservée la valeur de "c" ? pour toute la durée de vie de la session Excel ouverte ?

Bonjour,
Petite rectification pour éviter le message

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Workbook_BeforeClose(Cancel As Boolean) Static c As Integer c = c + 1 If c = 1 Then Module4.Macro Application.DisplayAlerts = False ThisWorkbook.Close SaveChanges:=True Application.DisplayAlerts = True End If End Sub

---

Citation:

---

Je n'avais jamais utilisé "Static" et j'avoue ne pas savoir pourquoi ça marche, je vais regarder

---

Une variable définie comme Static conserve sa valeur

Bonjour,

j'ai 2 questions :

1) Je ne comprends pas l’intérêt de :

Code:

---

Range("A11").Value = c

---

2)

Code:

---

1 2 3 4 5

Application.DisplayAlerts = False ...   Application.DisplayAlerts = True

---

Je n'ai pas le message même sans ces 2 lignes, quel est l'objectif de les ajouter ? une sécurité ?

Merci

Bonjour,
A ta première question, il n'y a effectivement aucune raison d'avoir cette ligne que j'ai utilisée pour des tests. Je viens de l'enlever.
A la deuxième question, moi j'avais un message mais supprime les puisque tu n'as pas de problème

re
je n'y avais pas pensé a une variable statique j'utilise en general une variable globale module

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim canc As Boolean Private Sub Workbook_BeforeClose(Cancel As Boolean) canc = Cancel = True If canc = False Then Module4.macro 'Application.DisplayAlerts = False ThisWorkbook.Close SaveChanges:=True 'Application.DisplayAlerts = True End If End Sub

---