Vérifier si des feuilles excel sont ouvertes

Skeo -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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   Statut Modérateur Dernière intervention   2 761
 
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