Discussion :

[LitteulKevin]

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.

[argyronet]

Bonjour

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

Et tu seras comblé...

Argy

[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

[argyronet]

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

Code :

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

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

[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 ??

[argyronet]

Ah Ok...

Bon, ben, comme ça alors:

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
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

[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 )

[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

[LitteulKevin]

j'avais testé et effectivement ça marche.
j'avais juste mal adapter ton code 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