fermer excel par un bouton

[violaine]

bonjour
est t il possible de fermer un classeur excel ou excel tout cour a partir d un bouton

merci

 

[Moa]

Re Violaine !

Simplement :

ActiveWorkbook.Close

Après Excel risque de te demander si tu veux sauvegarder les changements ou non.

Si tu sauvegarder sans qu'Excel te le demande :

Application.DisplayAlerts = False (Pour annuler le message)
ActiveWorkbook.Save (Pour sauvegarder les changements
Application.DisplayAlerts = True (Remettre Excel en ordre)



@ +

Moa

 

[sassouki]

Salut moa,
Et je veux fermer une feuille par d'autres ouverte en même temps sans faire l'enregistrement.
Merci moa pour l'aide.
A++

 

[violaine]

merci moa

 

[Moa]

Salut Sassouki !

Application.DisplayAlerts = False (Pour annuler le message)
ActiveWorkbook.Close
Application.DisplayAlerts = True (Remettre Excel en ordre)

Tout simplement

@ +

Moa

 

[sassouki]

Resalut moa et merci beaucoup.
Voila c'est simple, mais je dois preciser la feuille à fermer par ce que j'ai plusieurs feuilles ouvertes après l'exécution de ma macro..

Sassouki
A++++

 

[Moa]

Re !

ActiveWorkbook veut dire le classeur actif, donc celui que tu vois affiché devant toi.

Si maintenant, tu désires fermer un autre classeur, il est clair qu'il faudra préciser le nom de ce dernier et il me semble que tu dois par conséquent l'activer d'abord.

Windows("LeNomDuClasseurAFermer").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

Et si tu ne veux pas voir le raffraîchissement de l'écran, pendant les opérations.

Application.ScreenUpdating = False
Windows("LeNomDuClasseurAFermer").Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True (Toujours remettre Excel en Ordre)
Application.ScreenUpdating = True (Et encore remettre Excel en ordre)

@ +

Moa

 

[Robert]

Salut à tous,

Puisqu'on s'est croisé avec Moa sur un autre post de Violaine, je me permets d'apporter une petite contribution. Si on désire fermer un classeur sans enregister les dernières modification on peut utiliser :

ActiveWorkbook.Close savechanges:=False

Cela évite les :
Application.DisplayAlerts = False
Application.DisplayAlerts = True

en enregistrant (il remplacer le "False" par "True")
ActiveWorkbook.Close savechanges:=True

À plus,

Robert

 

[sassouki]

Re salut à tous,
Je vous remercie moa "c'est ce que je cherche exactement ",


Enfin merci à tous, qu'on se retrouve très prochainnement.
A+
Sassouki