Comment fermer Excel ?

Bonjour à tous,

Je suis en train de faire une procédure qui ferme l'application Excel.
J'utilise Automation pour cela.
Voici mon code :

Sub FermetureExcel()

Dim AppliExcel As Object

Set AppliExcel = Excel.ActiveWorkbook
Excel.ActiveWindow.Close

end Sub

J'ai fait des tests et ça ne fonctionne pas. C'est comme il ne calcule pas
la fenêtre Excel qui est ouverte... Vous avez une idée du pourquoi ?

Merci d'avance


Nesta

j'utilise ceci avec vb6, surement bon en vba :

AppliExcel .Workbooks.Close
AppliExcel .Quit
Set AppliExcel = Nothing

dany

"Nesta" <nestaman@hotmail.com> a écrit dans le message de news:
e9C0zSYmIHA.5160@TK2MSFTNGP05.phx.gbl...

Bonjour à tous,

Je suis en train de faire une procédure qui ferme l'application Excel.
J'utilise Automation pour cela.
Voici mon code :

Sub FermetureExcel()

Dim AppliExcel As Object

Set AppliExcel = Excel.ActiveWorkbook
Excel.ActiveWindow.Close

end Sub

J'ai fait des tests et ça ne fonctionne pas. C'est comme il ne calcule
pas la fenêtre Excel qui est ouverte... Vous avez une idée du pourquoi ?

Merci d'avance


Nesta