Lancer un programme à la fermeture du classeur

Re : Lancer un programme à la fermeture du classeur

Bonjour herve80
un code que tu peux mettre sous l'évènement before close par exemple
ici c'est une simple macro pour tester le code

Sub deb()
cheminfich = "C:\Documents and Settings\sourbelle\Bureau\"
fichierexe = "annu.vbs"

Set filesys = CreateObject("scripting.filesystemobject")
If filesys.FileExists(cheminfich & "annu.vbs") = True Then
pg = Shell("wscript.exe " & fichierexe, vbMinimizedFocus)
Else
ThisWorkbook.Close
End If

End Sub

Re : Lancer un programme à la fermeture du classeur

Ici tester avec un vbs, pour un fiichier exe, changer la syntaxe du shell

shell( ton exécutable et son chemin,choix du focus)

Re : Lancer un programme à la fermeture du classeur

bonjour,

Ci-joint une solution :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
RetVal = Shell("C:\Program Files\2BrightSparks\SyncBack\SyncBack.exe", vbMaximizedFocus)
ThisWorkbook.Close SaveChanges:=True
End Sub