1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Option Explicit
Dim Progr
Dim Msg$
Private Sub Command1_Click()
On Error GoTo GestErr
Progr = Shell("C:\PersoFrancis\New Lecteur de fontes\LectFontes.exe", vbNormalFocus)
'Progr = Shell("C:\PersoFrancis\New Lecteur de fontes\ LectFontes.exe", vbNormalFocus)
'Progr = Shell("C:\PersoFrancis\New Lecteur de fontes LectFontes.exe", vbNormalFocus)
'Progr = Shell("LectFontes.exe C:\PersoFrancis\New Lecteur de fontes\", vbNormalFocus)
'Progr = Shell("LectFontes.exe C:\PersoFrancis\New Lecteur de fontes", vbNormalFocus)
Exit Sub
GestErr:
On Error GoTo 0
Msg$ = Err.Description
MsgBox "Le lancement du programme à échoué" & Msg$, , "Erreur lancement de programme"
End Sub |
Partager