Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classeur

Hulk

XLDnaute Barbatruc

• 17 Janvier 2009

• #16

Re : Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classe

Hello tout le monde,

Je me doutais bien qu'Application.Quit n'est pas la bonne solution.

Je suis d'accord, pas bon Application.Quit.

Bonne soirée à tous.

Hulk.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 17 Janvier 2009

• #17

Re : Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classe

Salut le Fil

Regarde ce Fil et plus particulièrement le Code de l'ami Pierrot 🙂 qui pourrait être un bon compromis

Bonne Journée à tous

 

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 17 Janvier 2009

• #18

Re : Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classe

Salut hulk,Dull,jean pierre ....et a tout le forum

Bon ça y est , je suit l'idée de fermer le classeur pas l'Appli Excel
vous avez tous raison

Hulk dans le code , de ton classeur joint ça fonctionne bien
et une fois ton code transcrit dans mon Usf, le classeur ne ce ferme pas
Je suis pas arriver a trouver ,le probléme
Le fichier est en piéces jointe

A bientôt et merci a tous ceux qui on pris de leur temps
pour intervenir sur ce fil

 

Pièces jointes

• Classeur122.xls

  109.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 17 Janvier 2009

• #19

Re : Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classe

Hello,

Je crois, j'suis même sûr que c'est à cause de ton horloge dans le label.
Au fait c'est bon, il le ferme bien, mais il l'ouvre droit derrière !

Efface tes modules "horloge" ainsi que ce qui concerne "horloge" dans l'Initialize de l'USF et dans le QueryClose, et tu verras qu'il se ferme bien.

En revanche, je ne vois pas comment remedier à ça, va falloir trouver un génie 😀

@+, Hulk.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 20 Janvier 2009

• #20

Re : Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classe

Salut vaucluse immo, Hulk, le Forum

Pas besoin d'être un génie mais avec un peu de logique ça devrait le faire 😀 Il faut fermer l'USF

Code:

Private Sub CommandButton10_Click()
[COLOR=Red][B]Unload Me[/B][/COLOR][COLOR=Green] '(ICI)[/COLOR]
Select Case MsgBox("Souhaitez-vous sauvegarder ces données ?", vbYesNo)
Case vbYes
MsgBox ("Données sauvegardées")
Application.DisplayAlerts = True
ThisWorkbook.Close SaveChanges:=True
Case vbNo
End Select
'Unload UserForm1
End Sub

En effet le Sub auto_close (EvitecegenredeMot préfère lui StopChrono par exemple), soit l'arrêt de l'heure, ne se fait pas puisque s'effectue seulement à la Fermeture de l'UserForm. Or l'USF ne se ferme pas donc pas d'arrêt du Chrono... CQFD

Bonne Journée

 

Pièces jointes

• Vaucluse Immo.zip

  63.2 KB · Affichages: 29
• Vaucluse Immo.zip

  63.2 KB · Affichages: 31
• Vaucluse Immo.zip

  63.2 KB · Affichages: 29

Vote positif 0 Vote négatif

MuscatMimi

XLDnaute Accro

• 20 Janvier 2009

• #21

Re : Fermeture Usf avec MsgBox pour Enregistrer le Classeur et fermer l'usf et Classe

Bonjour Dull et le Forum

pas mal ton idée
et qui plus ai ça fonctionne

Grand merci a toi,
Bonne journée
Cordialement

 

Vote positif 0 Vote négatif