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

Résolu
NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -  
NeOXi-_Alpha Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -
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 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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   Statut Membre Dernière intervention  
 
parfait, tout a fait se qu'il me faut merci beaucoup.
0