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

Signaler
Messages postés
4
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
28 octobre 2009
-
Messages postés
4
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
28 octobre 2009
-
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

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
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)
Messages postés
4
Date d'inscription
mardi 19 mai 2009
Statut
Membre
Dernière intervention
28 octobre 2009

Merci bien. J'ai fait la même chose mais en plus d'étapes.

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