comment creer bouton vbokcancel pour fermer appli

Question

Bonjour,



Je voudrais comment faire la chose suivante en vb:



lors de la fermeture d'un fichier une macro verifie
(Workbook_BeforeClose) si tous les param&#232;tres sont bien saisis dans mon
fichier excel. Si ce n'est pas le cas une alerte apparait et lui
propose soit 'ok' soit 'annuler'. Si l'utilisateur clique sur 'annuler'
le fichier se ferme.(mais pas l'appli!)



merci &#224; vous !

jpleroisse · Answer

Bonjour,

Que veux tu dire, le fichier se ferme mais pas l'appli ??

Lorsque tu ferme un classeur, excel se ferme aussi. En quoi est tu VBA Excel ou VB6?

jpleroisse

loops02 · Answer

Bonjour,



c'est en vba que je voudrais faire cette manip. Lorsque je dis le
fichier se ferme mais pas l'appli je veux dire que le classeur se
ferme, mais pas tous les autres classeurs excel d'ouverts (car d'autres
classeurs sont ouverts). Il ne faut pas que la macro ferme tous les
classeurs en fait. Il faut juste que la macro ferme le classeur sur
lequel est appliqu&#233; la macro. Voil&#224;.

D&#233;sol&#233; si je n'ai pas &#233;t&#233; tr&#232;s clair et encore merci beaucoup !

jpleroisse · Answer

Bonjour,

Si tu as plusieur classeurs ouverts, c'est sur la  X du classeur &#224;
fermer qu'il faut cliquez pas sur la X &#224; l'extr&#233;mit&#233; sup., qui elle
ferme Excel.



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim msg, reponse

msg = ("N'avez-vous rien oubli&#233; ? si non, cliquez sur OK pour fermer.")

reponse = MsgBox(msg, vbQuestion + vbOKCancel, "Fermer le classeur")

If (reponse <> vbCancel) Then

Cancel = False

Else: Cancel = True

End If

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

Comment creer bouton vbokcancel pour fermer appli

3 réponses

Discussions similaires