Lancer un programme à la fermeture du classeur

[herve80]

Bonjour,

Soit un programme de sauvegarde SyncBack situé là :

C:\Program Files\2BrightSparks\SyncBack\SyncBack.exe

J'aimerais qu'à la fermeture du classeur, Excel agisse ainsi :

1 - Vérifier si le programme est présent (je travaille avec 2 ordinateurs)
2 - Si oui, lancer le programme et l'afficher devant la feuille excel
3 - Si non, fermer simplement le classeur.

Je serai très content d'avoir une aide 🙂

 

[sousou]

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

 

[sousou]

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)

 

[Catrice]

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