Alors moi je ferais un "truc" du genre :
Sub FermeToutExcel ()
dim MyXl as object
On Error Resume Next 'Contignue l'exec si erreur
Set MyXl = GetObject(, "Excel.Application") 'Cherche excel en mémoire et crée une DDE dans MyXl (génére une erreur si pas d'excel)
do while Err.Number = 0 Then 'Temps que pas d'erreur
MyXl.Application.Quit 'Quite Excel lier
Set MyXl = Nothing ' Libère la référence à l'application
Set MyXl = GetObject(, "Excel.Application")'Cherche excel en mémoire et crée une DDE dans MyXl (génére une erreur si pas d'excel)
loop
Err.Raise 'Supprime l'erreur
On Error goto 0
end sub
Voila je pense que ca dois marcher
Remarque : Tu peut crée une boucle infini et au lieu de "on error resume next" tu fais "on error goto FinFermeToutExcel" et tu crée un libéler FinFermeToutExcel à la fin de la procédure (avant "Err.Raise")
Là tu dois pouvoir t'en sortir
A+
D'oh! Nuts!
Mmmmm...
DONUTS