[VBA] Enregistrement sur excel par vba

Bonjour,

Malgré mes recherches sur les différents forum je n'est pas trouvé mon bonheur... J'en appel donc à vous, oh bien aimé communauté de CCM! lol
Ce que je cherche à faire est fermer mon fichier excel en sauvegardant ou pas, suivant le bouton auquel l'utilisateur fera appel. Mes codes sont les suivants:

Sans sauvegarder

Sub quittersanssauver() 'Quitte le logiciel sans sauvegarder avec demande de confirmation
MsgBox "Quitter sans sauvegarder?", vbQuestion + vbOKCancel, "Confirmation"
If reponse = 2 Then Exit Sub
If reponse = 1 Then Application.DisplayAlerts = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
'Application.quit
End Sub

En sauvegardant

Sub QuitterSauver() 'quitte le logiciel et sauvegarde
ActiveWorkbook.Saved
ActiveWorkbook.Close
'Application.quit
End Sub

Le problème est le suivant: je voudrai fermer non seulement le classeur actif mais aussi Excel mais UNIQUEMENT dans le cas ou il n'y aurai pas d'autre fichier d'ouvert, afin de ne pas "fermer sans sauvegarder" mon document et excel avec alors que l'on travail sur un autre fichier. De la même manière je ne voudrai pas quitter et sauver excel alors qu'un deuxième fichier est ouvert et que des saisi "provisoire" on été effectuée....

Merci à vous!!!