Fermer Excel.exe complètement.

[tatayoyo38]

Bonjour,
J'utilise ce code pour fermer Excel :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFullScreen = False

Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.WindowState = xlMaximized
Application.ScreenUpdating = True

Application.Quit

End Sub

Surtout la derniere ligne en fait.
Seul soucit, il reste afficher dans mon Task Manager et comme je lance excel via un fichier bat le fichier bat ne peut pas continuer car il attend la fermeture de excel.

Comment faire ?
Merci a tous.

 

[kiki29]

Re : Fermer Excel.exe complètement.

Salut, voir peut-être Ce lien n'existe plus

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

Quand excel lance le shell, il ouvre un cmd et execute taskkill en faisant
C:\Documents and Settings\...\taksill ....

du coup le cmd s'arrete ici C:\Documents a cause de l'espace apres. Comment faire ?

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

Voila la soluce ^^ lol :

Dim ChClose$
ChClose = ActiveWorkbook.Path & "\"
Call Shell(Environ$("COMSPEC") & " /k" & """ & ChClose & """ & "Close.bat", vbNormalFocus)

EDIT : En fait non, le bat m'affciche & était innatendu. ^^

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re


Ecris ton path en "8.3"

DOCUME~1 à la place de Documents And Settings

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

en 8.3 ?
Je ne sait pas, le chemin peut changer selon les pc.