msgbox vbyesno + bouton quitter EXCEL

[seb02]

Bonjours le forum et lecteur de ce message,

c'est ma 2eme question sur ce forum, qui va peut être paraitre ridicule mais je me lance

1er partie de la question :

j'aimerai mettre un msgbox avec des Bouton YES/NO
j'ai remarqué qu'il fallait certainement écrire ceci :

msgbox 'Voulez vraiement quitter le formulaire?,[b] vbyesno[/b], le titre'

j'aimerai tous simplement qu'en appuyant sur YES l'userform1 se ferme et qu'en appuyant sur NO, le formulaire reste

j'ai bien essayé de faire de le faire avec un IF mais je n'y arrive pas :unsure:

2eme partie :
j'aimerai si possible, mettre un bouton dans mon userform1 qui me sert de navigateur pour fermer completement excel en enregistrent si possible ( sinon pas grave )

Merci pour vos réponses.

 

[seb02]

Oups, en utilisant la balise CODE il a rajouté des balise STRONG...
bref juste pour dire qu'il s'agit d'une erreur

merci

 

[Hervé]

bonsoir

1er question :

if msgbox ('Voulez vraiment quitter le formulaire?',vbyesno)=vbyes then
unload userform1
else
......
end if

2ème question :

workbooks.Close savechanges:=True

bonne continuation

bye

Message édité par: Hervé, à: 05/03/2005 01:02

 

[seb02]

re le forum, bonsoir HERVE

un grand merci à toi Hervé, c'est exactement ce que je voulais...
:kiss:

 

[seb02]

re le forum.

pour ce qui est de la cloture d'EXCEL, il me marque cela :

Erreur de compilation :
nombre d'argument inccorect ou affectation de propriété incorrect


voilà ce que j'ai mi :

Private Sub CommandButton15_Click()
Workbooks.Close savechanges:=True
End Sub

( Bouton 15 de mon userform )

 

[myDearFriend!]

Bonsoir Seb02,


tu peux essayer avec :

Private Sub CommandButton15_Click()
Application.Quit
End Sub


Cordialement.

Message édité par: myDearFriend!, à: 05/03/2005 02:18

 

[seb02]

re le forum, re myDearFriend!,

cette solution fonctionne très bien donc merci à toi.

pour ce qui est de l'autre façon :

Private Sub CommandButton15_Click()
Workbooks.Close savechanges:=True
End Sub

en faite elle fonctionne egalement mais quand on retire savechanges:=True mais il n'y a pas de sauvegarde...
donc encore merci pour ton aide.