Discussion :

[piertoo]

Bonjour,
je souhaiterai ne pas afficher un message demandant à l'utilisateur si il souhaite enregistrer lorsque celui ci décide de fermer Excel. Mais j'aimerai également lui afficher un message pour lui demander si il a bien terminé et enregistré (dans un autre classeur) ses travaux.

Le problème est que: la message box s'affiche deux fois, puis le workbook se ferme, mais pas excel...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Workbook_BeforeClose(cancel As Boolean)
 
    reponse = MsgBox("Etes vous sûr d'avoir terminé la correction des erreurs et d'avoir  bien enregistré votre travail ?", vbYesNo)
 
    If reponse = vbYes Then
 
        ActiveWorkbook.Close False
 
    Else: cancel = True
 
    End If
 
End Sub

J'ai cherché un peu sur d'autres topics, mais rien de similaire...

[Guiiand]

Bonjour,

Je ne comprends pas tres bien la première partie de ton probleme, par contre pour ferme excel, c est

Code :

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

application.close

mais cela fermera tous les classeurs ouverts, pas forcement a meilleur solutions si on a d'autres fichiers d'ouvert.

[piertoo]

Tout d'abord, merci pour ta réponse !

(N.B: j'ai reformulé mon premier message qui n'était pas très français...)

Je ne comprends pas tres bien la première partie de ton probleme

Et bien lorsque je ferme mon Excel, le code s'exécute sans problème, seulement la msgbox s'affiche deux fois (je clique une première fois sur oui, puis elle se réouvre et je dois cliquer une deuxième fois sur oui).

pour fermer Excel, est-ce qu'il y a une manière de fermer uniquement celui utilisé en sachant qu'il aura toujours le même non ?

[Guiiand]

Re-Bonjour,

Je te propose ce 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
Sub Workbook_BeforeClose(cancel As Boolean)
 
    reponse = MsgBox("Etes vous sûr d'avoir terminé la correction des erreurs et d'avoir  bien enregistré votre travail ?", vbYesNo)
 
    If reponse = vbYes Then
 
        ThisWorkbook.Saved = True
        cancel = False
 
    Else: cancel = True
 
    End If
 
End Sub

Je n'avais pas fais attention hier, pas les yeux en face des trous sans doute, mais tu n'as pas besoin de dire de fermer le classeur dans un evenement _BeforeClose. il suffit de passer la variable cancel à True pour qu'il se ferme.

Bonne journée

[piertoo]

C'est parfait !
Du coup tout marche, et la msgbox ne s'affiche plus qu'une seule fois.

Merci pour tes réponses!