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.

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Bonjour


Tu peux te risquer à terminer le processus Excel.exe ?

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

oui je peut pas de soucit.

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re

Dans ce cas, c'est ton batch, qu'il faut le "tuer", non ?

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

Et sinon, comment faire pour lancer via VBA un fichier Batch ?

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re



Essayes de modifier ta macro comme ci-dessous

ThisWorkbook.Saved = True 
Application.Quit

Pour lancer un batch nommé test.bat

Call Shell(Environ$("COMSPEC") & " /k C:\test.bat", vbNormalFocus)

'changer /k en /c si besoin

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

Deja essayer, je ne vois pas d'ou vient le soucit.
Comment je peut faire via une macro pour lancer un fichier bat dans le meme dossier que mon fichier.

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re


Voir mon précédent message, je l'ai édité.

EDITION : Dans ton code (de ton message initial),

ThisWorkbook.Saved = True

n'apparait pourtant pas ?

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

D'accord merci.

Edit

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

J'ai essayer ca ca ne marche pas.

Ecit 2

J'ai fait ca : et ca marche :

ChClose = ActiveWorkbook.Path & "\"
Call Shell(ChClose & "Close.bat", vbNormalFocus)

Enfin, comment attribuer cette macro a un bouton ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re


Désolé mais ca marche 🙄

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

EDITION: en cherchant un peu , (utilises le moteur de recherche du forum), tu trouveras comment associer une macro à un bouton, et comment utiliser les procédures évènementielles.

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

Quand je quitte excel, le Close.bat se lance et m'afficher ca :

'C:\Documents' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.

Mon bat contient :

:😡ECHO OFF
Taskkill /IM "MSOE03.EXE" /F /T
Pause
Exit

Je ne comprend pas ^^

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re


Fais un


Debug.Print ChClose

Que s'affiche-t'il dans la fenêtre d'exécution ?


Essayes de mettre le path complet de MSOE03.EXE

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

Je met ca ou ?

 

[Staple1600]

Re : Fermer Excel.exe complètement.

Re



ALT+F11, CTRL+H ChClose

Dans la procédure, commenter tout le code
et inscrire
Debug.Print ChClose

ou plus simple : MsgBox ChClose

 

[tatayoyo38]

Re : Fermer Excel.exe complètement.

ca ?

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
Debug.Print ChClose

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

'Application.Quit

End Sub

Je doit faire quoi ?