Discussion :

[lightstring4]

Bonjour

J'ai créé un fichier 1 Excel contenant un évènement BeforeClose.
Lorsque j'ouvre un autre fichier 2 Excel en parallèle puis qu'à partir de celui-ci je souhaite fermer tout Excel, l'évènement BeforeClose se produit sur le fichier 1 (qui devient actif) mais Excel ne se ferme pas. Je dois de nouveau demander la fermeture à partir de ce fichier 1 actif pour obtenir la boite de dialogue de fermeture de tous Excel.

Comment résoudre ce problème ?

[LeForestier]

Bonjour,
Montre un peu le code que tu a dans Before_Close
A+
EDIT:
Mais peut-être une idée..
Déclarer une variable boolean générale dans le dessus de ThisWorkbook
dans l'événement activate mettre cette variable =false
et dans l'événement Deactivate la mettre à true
dans le beforeClose mettre

Code :

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

1
2
    cancel = LaVariable
    If Lavariable then exit sub

Jai pas testé et il faudra peut-être inverser la valeur de LaVariable

[lightstring4]

Voilà le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
Dim msg As String
 
Workbooks(nomfichier).Sheets("Fiche actions").Activate
'##### A LA FERMETURE DU FICHIER, DEMANDER SI MISE A JOUR AUTOMATIQUE DE LA DATE DE
'##### MODIFICATION QUI VIENT SE COLLER DANS LA CELLULE K2
    msg = MsgBox("Voulez-vous changer la date de modification ?" & vbCrLf & vbCrLf & _
    "(Penser à changer le n° de révision dans le fichier et dans son nom !)", vbYesNo + vbInformation, _
    "DATE DE MISE A JOUR")
    If msg = vbYes Then
        Range("K2").Value = Format(CStr(Date), "d mmm yy")
    End If
'##### APPEL DE LA ROUTINE DE GRISAGE DES LIGNES DES ACTIONS FAITES
    Call GriserLigne
'##### CONTROLE DE ACTIONS SANS AFFECTATION DE ZONE NI DISCIPLINE
    Call ControleActionSansAffectation
 
    Application.OnKey "^>"
Application.ErrorCheckingOptions.NumberAsText = True
 
End Sub

La variable "nomfichier" est déclarée public parce qu'elle enregistre à l'ouverture le nom de ce fichier pour pouvoir le réutiliser à la fermeture et effectuer sur celui-ci (et non les autres classeurs ouverts) les quelques opérations demandées.
Il y a également appel de 2 sous-routines dans lesquelles je dois aussi appeler le classeur "nomfichier".

[LeForestier]

Mais si tu veux garder la fonction active ,après ton traitement essaye de mettre

Code :

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

   Application.DisplayAlerts= False

[lightstring4]

J'ai essayé mais ça ne change rien.

Je ne comprends pas vraiment pourquoi utiliser cette fonction qui permet de désactiver les messages d'erreur pendant l'exécution de la macro.
Je n'ai pas de message d'erreur mais juste une boite de dialogue de choix de mise à jour et une d'avertissement. Après leur exécution, la fermeture d'Excel s'arrête.

[LeForestier]

Cette méthode n'arrète pas les messages d'erreurs mais justement les avertissements à l'utilisateur tel que sauver,sauver sous, etc..
Il y à aussi moyen de dire à Excel que le fichier est sauver mais trou de mémoire je ne revient pas dessus.