VBA savoir si un WorkBook quelconque est ouvert et effectuer un opération en fon

Résolu/Fermé
NeOXi-_Alpha Messages postés 65 Date d'inscription mardi 13 novembre 2018 Statut Membre Dernière intervention 31 mai 2019 - Modifié le 9 janv. 2019 à 10:52
NeOXi-_Alpha Messages postés 65 Date d'inscription mardi 13 novembre 2018 Statut Membre Dernière intervention 31 mai 2019 - 9 janv. 2019 à 14:12
Bonjour voilà aujourd'hui j'ai un fichier excel qui va exécuté automatiquement un userform en masquant le workbook.
A la fermeture de l'userform il va fermé mon workbook mais ne ferme pas excel en lui même donc il garde une page excel grise ouverte, mais si j'ai un autre fichier excel ouvert il me ferme bien tous et me garde mon autre fichier ouvert, se que je veux évidement.
Moi j'aimerai que quand il se ferme si il n'y a pas d'autre fichier excel ouvert alors il ferme excel en lui même avec le code:
ActiveWorkbook.Close true


Sinon il ferme seulement le workbook avec le code:

ThisWorkbook.Close True


Merci d'avance pour votre aide.

1 réponse

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
9 janv. 2019 à 11:16
Bonjour,

Il suffit de compter le nombre de classeurs ouverts
if Application.Workbooks.Count > 0 Then 
  'il y a des classeurs ouverts...


0
NeOXi-_Alpha Messages postés 65 Date d'inscription mardi 13 novembre 2018 Statut Membre Dernière intervention 31 mai 2019
9 janv. 2019 à 14:12
parfait, tout a fait se qu'il me faut merci beaucoup.
0