Ouvir tout type de fichier depuis USF

[ThomasR]

Bonjour,

Pour repondre à une question du forum,
je créer ce poste afin qu'il puisse etre trouvé plus facilement (car le poste precedent n'avait pas un nom explicite)
Le code dans la partie Déclarations du Userfom :

Private Const SW_SHOWNORMAL = 1

Private 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
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Dim hWnd As Long

puis à l'initialize :

hWnd = FindWindow(vbNullString, Me.Caption)

et pour finir le code qui appel un programme
à adapter :

ShellExecute hWnd, 'open', 'F:\\Documentation\\Tutoriels_Jeux\\Explode_Seby.pdf', vbNullString, 'C:\\Windows\\', SW_SHOWNORMAL

Dans ce code j'utilise 2 APIs
une pour recup le n°du UserForm (hWnd) 'FindWindow
puis l'autre pour lancer l'application adaper en fonction de l'extention du fichier 'ShellExecute

Ci joint un exemple
Message édité par: ThomasR, à: 22/05/2006 21:36 [file name=Open_all.zip size=8064]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Open_all.zip[/file]

Message édité par: ThomasR, à: 22/05/2006 21:46