Msgbox à trois possibilité

[nikkyb]

Bonjour voici un code :

Private Sub CommandButton7_Click()
If msgbox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification") = vbYes Then
ThisWorkbook.Save
Unload Me
Application.Quit
If vbNo Then
Unload Me
Application.Quit
End If

If vbCancel Then Exit Sub
End If
End Sub

Avec celui ci je peut donc :
1 fermer avec enregistrement (ca marche)
2 annuler (ca marche)
3 fermer sans enregistrer (marche pas)

Et je ne sais pas pourquoi
Y a il une erreur dans mon code merci beaucoup!

 

[Ubot303]

Re : Msgbox à trois possibilité

Il s'agit en fait de la procédure pour fermer un classeur...
L'argument facultatif permet de répondre immédiatement à la question de l'enregistrement

Si tu précises dans une macro un :
Activeworksheet.close (1)
Il va fermer le classeur actif en enregistrant les modifications alors que Activeworksheet.close (0)
va fermer le classeur actif sans enregistrer les modifications.

Dans tous les cas, la msgbox d'Excel n'apparait pas.

Cela reste plus "propre" que de désactiver les messages d'alerte d'Excel car si un autre message que "Voulez-vous enregistrer blabla" doit apparaître, il ne pourra pas...
Un exemple : l'enregistrement du classeur des macros personnelles, des références circulaires, un calcul sur ordre à l'enregistrement qui plante...

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re

fonctionne pas chez moi sous 2003

Activeworksheet.Close (1)

ceci fonctionne, sans enregistrer les modifs... :

ActiveWorkbook.Close 0

 

[Ubot303]

Re : Msgbox à trois possibilité

Bien vu, il n'y a ptet pas les parenthèses (cela dépend de ta version je crois)
Activeworksheet.close 1

 

[nikkyb]

Re : Msgbox à trois possibilité

Salut

Pouvez vous m'indiquer comment je doit remodeler mon code pour que ca fonctionne ?

Merci d'avance!

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re

c'est "Activeworksheet" qui n'est pas un objet valide sous 2003....
de plus "ActiveSheet.Close" ne fonctionne pas non plus, cette méthode ne s'applique pas à une feuille de calcul....

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re

modifie ainsi :

Private Sub CommandButton1_Click()
Dim i As Integer
i = MsgBox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification")
If i = vbYes Then
    ThisWorkbook.Save
    Unload Me
    Application.Quit
    ElseIf i = vbNo Then Unload Me: ThisWorkbook.Close False: _
        Application.Quit
    ElseIf i = vbCancel Then Exit Sub
End If
End Sub

 

[nikkyb]

Re : Msgbox à trois possibilité

Ce code fonctionne seulement quand je choisi Non il me ferme tout mais garde une feuil excel vide ouverte...

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re

essaye ainsi :

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
i = MsgBox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification")
If i = vbYes Then
    ThisWorkbook.Save
    Unload Me
    Application.Quit
    ElseIf i = vbNo Then Unload Me: ThisWorkbook.Saved = True:  Application.Quit
    ElseIf i = vbCancel Then Exit Sub
End If
End Sub

on va bien finir par y arriver... enfin j'espère...

 

[nikkyb]

Re : Msgbox à trois possibilité

Re

dans vbNo tu as mis ThisWorkbook.Saved = True

C'est normal?

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

oui, afin de leurrer le système, permet de le flaguer comme n'ayant pas été modifié depuis son dernier enregistrement, de ce fait pas de message d'alerte et pas d'enregistrement...

F1 sur le mot dans l'éditeur vba, te donnera plus d'infos...

 

[nikkyb]

Re : Msgbox à trois possibilité

Salut

ca fonctionne mais y a il une grande difference avec le precedent code de Ubot303 ?

 

[Pierrot93]

Re : Msgbox à trois possibilité

Re,

pas vu son code !!!

 

[Fo_rum]

Re : Msgbox à trois possibilité

Salut

et ainsi ?

Private Sub CommandButton1_Click()
  Dim n As Byte
  n = MsgBox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification")
  If n > 2 Then ThisWorkbook.Close 7 - n
  Unload Me
End Sub

 

[Staple1600]

Re : Msgbox à trois possibilité

Bonsoir


Trés fin ton code Fo_rum 😉

J'ai voulu jouer au finaud avec ton code mais j'ai échoué 😱
pour ce qui est du bouton Annuler

Sub test()
Dim n As Byte
n = MsgBox("ATTENTION, Voulez vous sauvegarder avant de quitter ?", vbYesNoCancel, "Modification")
ThisWorkbook.Close IIf(n > 2, 7 - n, 7)
End Sub

 

[Pierrot93]

Re : Msgbox à trois possibilité

Bonjour,

Jean-Marie, il me semble que le bouton annuler est traité par For_um, non :

If n > 2

bonne journée
@+