[Déplacé VB6 --> VBA] Fermeture automatique de l'application

Résolu
cs_Cahouete1 Messages postés 4 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 28 octobre 2009 - 28 oct. 2009 à 13:01
cs_Cahouete1 Messages postés 4 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 28 octobre 2009 - 28 oct. 2009 à 18:48
Bonjour,
J'utilise Vba sur excel
Ma situation:
J'ai créer un petit bout de programe pour simplifié la saisi de prise d'appel SAV. Parfois, l'utilisateur était déjà en train d'utilisé Excel pour autre chose, et parfois non. ce qui m'embête au moment de quitter. Soit j'utilise "Application.quit" qui me propose de tout fermer si d'autre classeur sont ouvert, soit j'utilise activeworkbook.close qui me garde l'application excel vierge ouverte si mon classeur etait le seul.

Mon problème:
Je voudrais pourvoir quitter l'application excel (application.quit) lorsque je n'ai qu'un seul classeur d'ouvert, mais fermer seulement le classeur actif (activeworkbook.close) si d'autre sont ouvert.



Le chercheur cherche... Faut il devenir trouveur pour trouver ???

2 réponses

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 77
28 oct. 2009 à 18:16
Salut
Il te suffit d'énumérer la liste des Workbooks ouverts pour prendre ta décision :
    Dim r As Long
    For r = 1 To Application.Workbooks.Count
        Debug.Print Application.Workbooks(r).Name
    Next r

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
3
cs_Cahouete1 Messages postés 4 Date d'inscription mardi 19 mai 2009 Statut Membre Dernière intervention 28 octobre 2009
28 oct. 2009 à 18:48
Merci bien. J'ai fait la même chose mais en plus d'étapes.

Le chercheur cherche... Faut il devenir trouveur pour trouver ???
0
Rejoignez-nous