[VBA]Detection de l'annulation de la fermeture d'un classeur

Version imprimable

18/01/2005, 10h14
LitteulKevin

[VBA]Detection de l'annulation de la fermeture d'un classeur

Bonjour,

Je viens solliciter votre aide pour un petit problème de VBA :
J'ai une macro qui à la fermeture de chaque classeur ouvert lance un traitement ( que je fais donc dans le Workbook_BeforeClose ).
Le problème est que si l'utilisateur click sur 'annuler' quand la fenêtre d'enregistrement apparaît et bien mon traitement se fait quand même alors qu'il ne sort en fin de compte pas du classeur.....
Donc comment détecter l'annulation par l'utilisateur de la fermeture d'un classeur qui a été modifié ??
En espérant avoir été clair......
Merci d'avance.
18/01/2005, 10h56
argyronet

Bonjour

Vise le Query_Close avec l'événement UnloadMode...

Et tu seras comblé...

Argy
18/01/2005, 11h15
LitteulKevin

merci, mais comment tu fais pour que ton evennement s'applique et se lance correctement sur mon objet Workbook ?? car par défaut cette évènement n'y est pas :? ou sinon c'est que j'ai pas saisi ta réponse :oops:

:oops: C'était pas UnloadMode mais CloseMode (UnloadMode c'est dans VB)
Tu joues avec ce bout de code depuis un UserForm:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Select Case CloseMode
      'L'utilisateur a choisi la commande Fermeture dans le menu Système
      Case vbFormControlMenu 'on empêche la fermeture
        Cancel = True
      'L'instruction Unload est appelée à partir du code.
      Case vbFormCode 'on traite le Before_Close
        MsgBox "Traitement en cours..."
  End Select
End Sub

Argy

18/01/2005, 12h08
LitteulKevin

alors soit je comprend pas ta solus soit tu as mal compris ma question :? mais merci de t'y attarder ;)

j'ai n'ai aucune UserForm ds mon appli.
je fais mes traitements a la fermeture d'un classeur et non d'un usf donc c'est l'annulation sur la fenêtre que lance automatiquement excel pour proposer de sauvegarder que je souhaite détecter.
c'est plus clair ?? :?

Ah Ok...

Bon, ben, comme ça alors:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private bUserClicCancel As Boolean
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  bUserClicCancel = ThisWorkbook.Saved
End Sub
 
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
  If bUserClicCancel Then
    MsgBox "Il a sauvé donc on traite..."
    Traitement
  Else
    MsgBox "Il a annulé, donc on ne traite pas..."
  End If
End Sub
 
Private Sub Traitement()
  MsgBox "Le traitement est lancé..."
End Sub

Argy

18/01/2005, 14h14
LitteulKevin

merci :)
ça devrais m'aider a me dépatouiller.
L'évènement Workbook_WindowDeactivate se lance a quel moment exactement ?? car ds l'aide il dise et c logique quand le classeur est désactivé mais c'est un peu vague.....j'ai réussi a le désactiver en faisant Fenêtre->Masquer mais il y a t'il d'autre moyen ?? ( a part également quand le classeur se ferme )
18/01/2005, 15h24
argyronet

Ce que je t'ai écris se succède.
Donc
1 / Before_Close()
2 / Window_Desactivate()

Prend ce code et colle-le tel que dans un classeur vierge et tu verras, ça marche très bien.

A+

Argy
18/01/2005, 15h36
LitteulKevin

j'avais testé et effectivement ça marche.
j'avais juste mal adapter ton code :oops: car moi je voulais que le traitement se fasse qu'il réponde oui ou non à la question.
mais c'est bon je pense avoir réussi. 8)
merci :wink: