tu peux essayer (exemple pour la calculatrice de Windows ) :
Private Sub Workbook_Open()
RetVal = Shell("C:\WINDOWS\system32\calc.exe", 1)
End Sub
procedure à placer au niveau de ThisWorkbook
tu trouveras d'autres exemples dans le lien ci-dessous ( il faut cliquer une deuxieme fois sur le lien si un messages d'erreur s'affiche )