Fermer XL avec CommandButton

[schmail]

Bonjour à toutes et tous et bon Jeudi

Mon Pb est ds le titre... je souhaiterais fermer XL depuis un CommandButton situé sur une USF. J'ai cherché avec WithEvents mais pas terrible comme results..

Merci et @+

 

[Popeye]

Application.DisplayAlerts = False 'permet de fermer sans rien demander. Il n'enregistre pas les modifications

application.quit 'arrete excel

voili voilou

 

[STEN83270]

Salut, j'ai le même problème que toi.

J'ai juste du code mais qui ferme la fenêtre acticve et non pas l'application.

Voici:

Dans un module:

Public bye As Boolean

bye = True
Thisworkbook.Save
Thisworkbook.Close

Dans Thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cancel = Not bye

C'est tout ce que j'ai pour le moment si tu trouve autre chose merci de m'en faire part.

Bonne prog salut!

 

[STEN83270]

J'ai oublié de te dire dans ton CommandBouton tu appel ton module

bye

salut!

 

[schmail]

Un tir groupé !!!

Merci au Popeye d'XL de la part d'un Mimosa...
et pour Sten83270 tu as at réponse.

Bonne journée et @+