Fermeture Form et Excel

Résolu
Nikos620 Messages postés 10 Date d'inscription mercredi 23 août 2006 Statut Membre Dernière intervention 22 novembre 2006 - 6 nov. 2006 à 15:50
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 - 8 nov. 2006 à 15:15
Bonjour,

- comment fait-on pour fermer une form avec la croix en haut à droite de la form ? (Pour l'instant j'utilise form.hide...mais l'application n'est pas fermée et ca bugge quand on relance l'appli!)
- comment fait-on pour fermer "proprement" excel et une application active en utilisant une macro ?

J'utilise vb6. Si quelqu'un peut me filer un p'tit coup de pouce!

D'avance merci.

Nikos620

3 réponses

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
6 nov. 2006 à 16:00
Salut,

Pour bien décharger les objet UserForm utilises Call UnLoad(NomDuUserForm) ou bien si c'est directement dans le code du UserForm Call Unload (Me)

POur fermer EXcel depuis VB6
Utilises les Procédures
Close de tes objets Classeur et
Quit de ton objet Application
@+: Ju£i?n
Pensez: Réponse acceptée
drikce06 Messages postés 2236 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 29 mai 2008 10
8 nov. 2006 à 15:15
Salut

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


     End
     
  End If
  End If
Cancel = 1


End Sub

 Drikce 06
Nikos620 Messages postés 10 Date d'inscription mercredi 23 août 2006 Statut Membre Dernière intervention 22 novembre 2006
8 nov. 2006 à 15:08
Euh j'ai essayé autre chose Query_Close...de la manière suiavnte :


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
   
   End If
End Sub


mais lors de la fermeture (click sur la croix en haut à droit) du UserForm la fonction Query_Close n'est pas  exécutée....

Y-a-t-il une erreur dans mon code ?

Thanks for your help!!!
Rejoignez-nous