Fermer Excel.exe complètement.

tatayoyo38 · 25 Octobre 2009

Bonjour,
J'utilise ce code pour fermer Excel :

Code:

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 · 25 Octobre 2009

Re : Fermer Excel.exe complètement.

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

tatayoyo38 · 25 Octobre 2009

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 · 25 Octobre 2009

Re : Fermer Excel.exe complètement.

Voila la soluce ^^ lol :

Code:

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 · 25 Octobre 2009

Re : Fermer Excel.exe complètement.

Re

Ecris ton path en "8.3"

DOCUME~1 à la place de Documents And Settings

tatayoyo38 · 25 Octobre 2009

Re : Fermer Excel.exe complètement.

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

Fermer Excel.exe complètement.

tatayoyo38

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

tatayoyo38

XLDnaute Nouveau

tatayoyo38

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

tatayoyo38

XLDnaute Nouveau

Discussions similaires