fermeture direct excel

[gh4]

bonjour
pourquoi losque je lance ma procedure de fermeture mon fichier se ferme bien
mais excel ne se ferme pas pour me faire revenir sur le bureau windows.


meric pour vos lumieres

Sub auto_close() 'procedure de fermeture du programme

Application.DisplayAlerts = False

Sheets("gestion").Select
ActiveSheet.Unprotect
Range( _
"I11,I13,I15,I17,I19,I21,I23,I25,I27,I29,Q11,Q13,Q15,Q17,Q19,Q21,Q23,Q25,Q27,Q29" _
).Select

Selection.Interior.ColorIndex = 2
Range("F49:G49").Select
Selection.ClearContents
Range("A8").Select

ActiveSheet.Protect
ActiveWorkbook.Save
menuclose

ActiveWorkbook.Close
Application.Quit
5000
End Sub

 

[Baside]

Re : fermeture direct excel

Et en retirant "ActiveWorkbook.Close" ?

 

[fanfan38]

Re : fermeture direct excel

Bonjour GH4, Baside
Ce n'est pas "Et en retirant "ActiveWorkbook.Close" ...
il faut retirer cette ligne car tu fermes l'application avec cette commande donc la ligne suivante n'est pas faite...

A+ François

 

[Baside]

Re : fermeture direct excel

Bonsoir le fil.

C'était une question, car je connaissais la réponse lol