Workbook_BeforeClose - procédure +/- exécutées

Bonjour,

Je tourne en rond depuis... des jours.

Workbook_BeforeClose exécute les sous-routines parfaitement si je ferme le classeur en cliquant sur "la croix"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Sh As Worksheet Stop   Call Stop_Tempo Call Test_Répertoire   ThisWorkbook.SaveCopyAs Répertoire & "\" & FichierIndexé   ThisWorkbook.Unprotect ""   Feuil01.Visible = xlSheetVisible For Each Sh In ThisWorkbook.Sheets If Sh.CodeName <> "Feuil01" Then Sh.Visible = xlSheetVeryHidden Next   ThisWorkbook.Protect "", True, True   If Application.Workbooks.Count = 1 Then Application.Quit   End Sub

---

Si Workbook_BeforeClose est lancé depuis la procédure qui suit, la copie du classeur et l'affichage de la Feuil01 ne s'exécute pas !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test_Affichage_UF()   If UserForm1.Visible = False Then UserForm1.Show Else Unload UserForm1 ' Call Test_Répertoire ' ThisWorkbook.SaveCopyAs Répertoire & "\" & FichierIndexé 'ne fonctionne pas si placé dans BeforeClose ! ActiveWorkbook.Close SaveChanges:=True End If End Sub

---

... ce qui me contraint à (re)mettre :

Citation:

---

ThisWorkbook.SaveCopyAs Répertoire & "\" & FichierIndexé 'ne fonctionne pas si placé dans BeforeClose !

---

dans ce module !

Je précise qu'il n'y a pas de :

Citation:

---

Application.EnableEvents = False

---

dans les procédures intermédiaires.

Qu'est-ce qui peut "inhiber" l'exécution d'une procédure dans Workbook_BeforeClose ?

En vous remerciant d'avance pour votre aide,
Cdt

Salut

Tu devrais essayer en laissant à false le paramètre de sauvegarde auto

Code:

---

1 2	ActiveWorkbook.Close SaveChanges:=False

---

Et faire cette enregistrement dans le BeforClose. Si l'enregistrement ne doit pas être systématique, tu peux utiliser une variable boolean de niveau module (déclaré en Public dans une module standard). Tu passes cette variable à True avant d'appeler ActiveWorkbook.Close et dans le code de BeforeClose, tu vérifie si la variable est à True, si c'est le cas tu sauvegarde sinon, tu ne sauvegarde pas.

Je n'ai pas fait de tests alors le problème vient peut-être d'ailleurs... Vu que tu semble appeler le Close à partir d'un UserForm et si le classeur que tu demandes de fermé est celui qui contient le UserForm... c'est peut-être ça qui fait que BeforClose n'est pas appelé, car le classeur ne peut pas être fermé avec un UF actif. [Cette affirmation n'en ait pas vraiment une ;)]

Aussi attention avec les Actives...workbook/worksheet/.. Il vaut mieux pointer l'objet dans une variable au moment de son ouverture si c'est via le code par exemple.

++
Qwaz

Bonsoir et merci pour ton aide,

Citation:

---

Aussi attention avec les Actives...workbook/

---

J'ai suivi ton conseil mais en vain.

Citation:

---

le classeur ne peut pas être fermé avec un UF actif

---

Mon UF est bien déchargé avec Unload (et non hide) donc c'est bien la procédure Sub Test_Affichage_UF() qui lance Workbook_BeforeClose ?! En mode pas à pas, la procédure Workbook_BeforeClose est bien appelée.

Citation:

---

Si l'enregistrement ne doit pas être systématique, tu peux utiliser une variable boolean (...)

---

Si, si, l'enregistrement doit être systématique et quid de l'impossibilité de ré-afficher la Feuil01 ?!

En général, le forum n'est pas friand des codes trop longs, mais à toutes fins utiles, voici les étapes intermédiaires (où se trouve peut-être le problème) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test_Affichage_UF() 'new   If UserForm1.Visible = False Then UserForm1.Show Else Unload UserForm1 ' Call Test_Répertoire ' ThisWorkbook.SaveCopyAs Répertoire & "\" & FichierIndexé 'ne fonctionne pas si placé dans BeforeClose ! ActiveWorkbook.Close SaveChanges:=True 'True 'avec vbYes : shunt message "voulez-vous ... ?" End If End Sub

---

* Affichage du UF

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() Call Alerte TimeSetting 10 AfficherSecondes End Sub

---

Code:

---

1 2 3 4 5 6 7 8

Sub Alerte() Dim i As Integer On Error GoTo fin For i = 1 To 3 Beep 440, 500 'note + durée Next i fin: End Sub

---

Code:

---

1 2 3 4 5 6 7

Sub TimeSetting(Optional kSec As Integer = 30) 'new MODIFIER durée (300 = 5') REMETTRE   On Error Resume Next 'à conserver Application.OnTime EarliestTime:=CloseTime, Procedure:="Test_Affichage_UF", Schedule:=False CloseTime = DateAdd("s", kSec, Now) Application.OnTime EarliestTime:=CloseTime, Procedure:="Test_Affichage_UF", Schedule:=True End Sub

---

Code:

---

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

Sub AfficherSecondes() Dim i As Integer, n As Single   n = (CloseTime - Now) * 24 * 3600 For i = n To 1 Step -1 Me.LabelTime = i Application.Wait (Now + TimeValue("00:00:01")) DoEvents On Error GoTo fin 'si clic sur Fermer > Erreur > Fin: If Me.Visible = False Then Exit For Next i fin: End Sub

---

Et on finit ici (ActiveWorkbook.Close)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test_Affichage_UF()   If UserForm1.Visible = False Then UserForm1.Show Else Unload UserForm1 ' Call Test_Répertoire ' ThisWorkbook.SaveCopyAs Répertoire & "\" & FichierIndexé 'ne fonctionne pas si placé dans BeforeClose ! ActiveWorkbook.Close SaveChanges:=True 'True 'avec vbYes : shunt message "voulez-vous ... ?" End If End Sub

---

Je sais que la longueur du code est rédhibitoire...
Si j'active les 2 lignes "commentées" de la dernière procédure, ça fonctionne mais c'est redondant avec ces 2 lignes qui figurent déjà dans Workbook_BeforeClose, ce qui n'est pas satisfaisant.

Cdt

Bonsoir JPMA75,

J'ai un pb tout à fait similaire.
Aurais-tu trouvé une parade?

Merci de ton retour.