Détecter si session Excel unique ou pas

[Mi_]

Bonjour le forum,

Dans un classeur j'ai masqué la barre de menu principale, ainsi que la barre de titre. Résultat, il n'y a plus de bouton pour fermer le classeur ou l'application.

Pas de panique j'ai prévu un bouton de fermeture.

Je cherche comment faire pour que le code de fermeture, ferme Excel complètement (Application.Quit) si mon classeur est la seule session Excel ouverte, respectivement ferme seulement le classeur (ThisWorkBook.Close) s'il y en a d'autres fichiers Excel ouverts (donc d'autres sessions).

Donc comment détecter si la session de mon classeur est unique ou pas.

Merci pour tout conseil,
Mi_

 

[Hervé]

Bonsoir Mi_

Je ne suis pas sur de comprendre ce que tu veut dire par 'session', mais si il s'agit de classeur, tu peut tester le nombre de classeur ouvert par :

MsgBox Workbooks.Count

ce code va te retourner le nombre de classeur ouvert.

salut

 

[Mi_]

Bonsoir,
C'est exactement ce que je cherchais.

Maintenant ça tourne nickel:

Sub Fermerclasseur()
Dim nrclasseurs As Integer
nrclasseurs = Workbooks.Count
If nrclasseurs > 1 Then
ThisWorkbook.Close
Else
Application.Quit
End If
End Sub

Merci Hervé !