Vérifier si des feuilles excel sont ouvertes
Skeo
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 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!!!
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!!!
1 réponse
-
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? --
