Public Declare Function ShellExecuteA Lib "shell32" (ByVal hWnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long
Private Sub Command1_Click() retval = ShellExecuteA(0, "Open", rsFiche!fich_path & rsFiche!fich_file, "", "", 10) If retval = 2 Then MsgBox "Ouverture du fichier impossible !", 48, "Impossible" End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question