VBA: fermer excel si il ne reste aucun classeur ouvert

[Michael]

Bonjour,

Je voudrais fermer excel uniquement s'il ne reste aucune fenetre ouverte.

Comment faire?

Merci

MichaeL

 

[Sebb]

Salut !
ALors voilà j'ai résolu partiellement ton problème. Je pense que mon probleme se situe dans le fait que je ne peux pas créer une macro dans une bibliothèque commune (genre perso.xls).
Donc la macro ne marche actuellement que pour le classeur auquel elle est rattachée.
voiici le code
____________________________________________________________
Sub Workbook_BeforeClose(Cancel As Boolean)

Dim oXlApp As Object 'Excel.Application
Dim oXlWbk As Object 'Excel.Workbook
Dim compte As Double
Set oXlApp = GetObject(, "Excel.Application")
compte = -1
For Each oXlWbk In oXlApp.Workbooks 'Pour chaque classeur ouvert
compte = compte + 1 'je rajoute 1 au nombre de classeur
Next oXlWbk
MsgBox "voila " & compte 'c est a supprimer, c'est juste pour vérifier le bon nombre
If compte = 1 Then
Cancel = True 'ici on annule la fermeture
End If

End Sub
____________________________________________________________
Voilà j'espere que tu y arriveras a partir de ca
a+