Lancer des fichiers
ataeallah
Messages postés
37
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
17 juin 2010
-
17 janv. 2002 à 11:17
Makabey Messages postés 152 Date d'inscription mercredi 27 juin 2001 Statut Membre Dernière intervention 11 juillet 2002 - 17 janv. 2002 à 15:14
Makabey Messages postés 152 Date d'inscription mercredi 27 juin 2001 Statut Membre Dernière intervention 11 juillet 2002 - 17 janv. 2002 à 15:14
1 réponse
Makabey
Messages postés
152
Date d'inscription
mercredi 27 juin 2001
Statut
Membre
Dernière intervention
11 juillet 2002
1
17 janv. 2002 à 15:14
17 janv. 2002 à 15:14
Essaie ceci:
'Dans un Module:
'Pour fonction DemarrerAppURL
Public Const SW_SHOW = 1
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub DemarrerAppURL(ByRef frm As Form, ByVal WebPageURLorFileName As String)
'
' Utiliser comme suit:
'
' Call DemarrerAppURL(Me, "http://www.vbthunder.com") Pour un site web OU
' Call DemarrerAppURL(Me, "C:\MyPath\testdoc.doc") Pour ouvrir un fichier X
' avec son application par défaut.
'
' Fonctionne avec tout fichier ayant une application associée.
'
ShellExecute frm.hwnd, "open", WebPageURLorFileName, "", "", SW_SHOW
End Sub
'/Dans un Module
'Exemple d'utilisation:
DemarrerAppURL Me.frm, "c:\windows\temp\MonFichRegistre.reg"
'Dans un Module:
'Pour fonction DemarrerAppURL
Public Const SW_SHOW = 1
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Public Sub DemarrerAppURL(ByRef frm As Form, ByVal WebPageURLorFileName As String)
'
' Utiliser comme suit:
'
' Call DemarrerAppURL(Me, "http://www.vbthunder.com") Pour un site web OU
' Call DemarrerAppURL(Me, "C:\MyPath\testdoc.doc") Pour ouvrir un fichier X
' avec son application par défaut.
'
' Fonctionne avec tout fichier ayant une application associée.
'
ShellExecute frm.hwnd, "open", WebPageURLorFileName, "", "", SW_SHOW
End Sub
'/Dans un Module
'Exemple d'utilisation:
DemarrerAppURL Me.frm, "c:\windows\temp\MonFichRegistre.reg"