Fermer excel - QueryClose [Résolu]

cs_clamor 30 Messages postés mardi 4 octobre 2005Date d'inscription 6 avril 2007 Dernière intervention - 5 avril 2007 à 16:31 - Dernière réponse : cs_MPi 3869 Messages postés mardi 19 mars 2002Date d'inscription 25 mai 2018 Dernière intervention
- 6 avril 2007 à 23:39
Bonjour,

J'ai fait un programme sous visual basic (celui qui est dans excel).

Quand j'appuie sur la croix en haut à droite, je quitte mon application mais n'arrive pas à fermer excel.

Comment dois-je faire ?

voici mon code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim Appli As Excel.Application
Dim rep As Byte
rep = MsgBox("Etes-vous sûre de vouloir quitter l'application ?", 1 + 16)
'si l'utilisateur choisi oui
If rep = 1 Then


ThisWorkbook.Close
Appli.Quit
Set Appli = Nothing
Else


End If
End Sub

Ps : je suis débutant.

Faut bien commencer un jour...
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 5 avril 2007 à 16:35
3
Merci
Autre exemple:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)


If Cancel = 0 Then


z = MsgBox("Etes vous sûr de vouloir quitter cette application?", vbYesNo, "Confirmer l'annulation")
 
  If z = 6 Then
Application.Quit     
  End If
 
 End If
 
Cancel = 1


End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Merci drikce06 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

Commenter la réponse de drikce06
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 5 avril 2007 à 16:34
0
Merci
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Dim rep As integer
rep = MsgBox("Etes-vous sûre de vouloir quitter l'application ?", 1 + 16)
'si l'utilisateur choisi oui
If rep = 1 Then
ThisWorkbook.Close
Application.Quit

Else

cancel = 1

End If
End Sub

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
cs_clamor 30 Messages postés mardi 4 octobre 2005Date d'inscription 6 avril 2007 Dernière intervention - 5 avril 2007 à 19:30
0
Merci
Merci Drikce 06 mais ça marche toujours pas. En fait je crois avoir mal expliqué mon problème. Avec mon code ça quitte mon programme visual basic et aussi ma feuille excel. Par contre le logiciel excel est toujours ouvert (avec aucun fichier mais ouvert quand même...). Un peu comme si j'avais appuyé sur la petite croix en haut à droite au lieu de la grosse croix qui ferme complètement excel.

merci d'avance.

Faut bien commencer un jour...
Commenter la réponse de cs_clamor
cs_MPi 3869 Messages postés mardi 19 mars 2002Date d'inscription 25 mai 2018 Dernière intervention - 6 avril 2007 à 00:30
0
Merci
«...Avec mon code ça quitte mon programme visual basic ...»

Est-ce que tu codes à partir de VB6 ou VBA Excel ?

MPi
Commenter la réponse de cs_MPi
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 6 avril 2007 à 08:01
0
Merci
Moi ça quitte tout, aussi bien VBA que excel!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
cs_clamor 30 Messages postés mardi 4 octobre 2005Date d'inscription 6 avril 2007 Dernière intervention - 6 avril 2007 à 10:11
0
Merci
je code à partir de vba excel.

Faut bien commencer un jour...
Commenter la réponse de cs_clamor
cs_clamor 30 Messages postés mardi 4 octobre 2005Date d'inscription 6 avril 2007 Dernière intervention - 6 avril 2007 à 17:09
0
Merci
désolé, j'ai réessayé et en fait ça marche très bien.

Merci beaucoup pour ton code

Faut bien commencer un jour...
Commenter la réponse de cs_clamor
cs_MPi 3869 Messages postés mardi 19 mars 2002Date d'inscription 25 mai 2018 Dernière intervention - 6 avril 2007 à 23:39
0
Merci
N'oublie pas que sous Excel, ce n'est pas du VB mais du VBA.
Un contexte explicite apporte des réponses explicites et moins d'embrouille.

Bonne programmation.

MPi
Commenter la réponse de cs_MPi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.