Bonjour
En fait, je ne ferme pas les fichiers après l'exécution du batch car j'ai besoin de les visualiser.
Ci-dessous une proposition à titre de test.
Dans le fichier "Test.bat"
Rem Ouvre "Chemin\Test.xlsm"
@eCHO off
set Fichier="Chemin\Test.xlsm"
set excel="C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
start "" %excel% %Fichier%
'****************************************
Dans le module ThisWorkbook de Test.xlsm
Option Explicit
Private Sub workbook_open()
Workbooks.Open ThisWorkbook.Path & "\" & "Test1.xlsm"
With ActiveWorkbook
'Pour test
.ActiveSheet.Range("a1") = Now
End With
Select Case MsgBox("Fermeture de " & ActiveWorkbook.Name, vbQuestion + vbYesNo, Application.UserName)
Case vbYes
ActiveWorkbook.Close True
Case vbNo
End Select
Select Case MsgBox("Fermeture de " & ThisWorkbook.Name, vbQuestion + vbYesNo, Application.UserName)
Case vbYes
ThisWorkbook.Close False
Case vbNo
End Select
End Sub