Sujet Précédent Sujet Suivant

Vérifier si des feuilles excel sont ouvertes

Fermé
Skeo - 15 avril 2010 à 16:06
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 15 avril 2010 à 16:15
Tout est dit dans le titre. C'est pour compléter ce code:

Sub quittersanssauver()

MsgBox "Quitter sans sauvegarder?", vbQuestion + vbOKCancel, "Confirmation"
If reponse = 2 Then Exit Sub
If reponse = 1 Then ActiveWorkbook.Saved = False
ActiveWorkbook.Close 'Workbooks(Application.ActiveWorkbook.Planning).Close (False)

End Sub

Car je voudrai fermer excel SEULEMENT si d'autres feuilles ne sont pas ouvertes.
D'ailleurs connaissez vous la commande qui permet de fermer excel?

Merci!!!
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
Modifié par pijaku le 15/04/2010 à 16:16
Salut,
Non tout n'est pas dit dans le titre... Manque le "bonjour,"
Bon néanmoins une réponse :
Savoir s'il y a d'autres classeurs d'ouverts équivaut à tester si le "compteur de classeurs ouverts" est supérieur à 1 : 
If WorkBooks.Count >1 Then 
bla bla 
End If

Pour quitter Excel, attention les yeux, code très difficile... : 
Application.Quit

Sinon pour fermer le classeur actif (ouvert parmi tant d'autres...) sans l'enregistrer : 
Application.DisplayAlerts = False 
ActiveWorkBook.Close 
Application.DisplayAlerts = True


Attention à bien rédiger tes questions :
Car je voudrai fermer excel SEULEMENT si d'autres feuilles ne sont pas ouvertes On comprends, mais ici le mot "feuille" doit être remplacé par "classeur". En Excel, cela n'est pas pareil...
Bonne journée
Cordialement,
-- Tout problème à sa solution. S'il n'y a pas de solution, ou est le problème? --
0