gh4
XLDnaute Occasionnel
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
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