TROUVER LE PROGRAMME ASSOCIÉ À UN TYPE FICHIER

#If Win32 Then
    Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#Else
    Private Declare Function FindExecutable Lib "shell.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Integer
#End If

'***************FONCTION DE RECHERCHE
Private Function Rechexe(Monfichier As String) As String
    Dim ChaineRet As String
    Dim ChaineExe As String
    'Dcl en variant Int ou Long
    Dim ret As Variant

    ChaineRet = Space(100)
    'Recherche de l'exe en fonction du fichier associé
    ret = FindExecutable(Monfichier, CurDir(), ChaineRet)
    If ret <= 32 Then
        ChaineExe = ""
    Else
        ChaineExe = Mid$(ChaineRet, 1, InStr(1, ChaineRet, Chr(0), 1) - 1)
    End If
    Form1.Print ChaineExe
    Rechexe = ChaineExe
End Function
'***********************************

'***************CHERCHER ASSOCIATION
'Essai de la fonction et lancement
Sub CmdOpen_Click()

Dim ret As Variant
Dim nomexe As String, nomfich As String

nomfich = "c:\1.pdf" 'Lien vers le fichier
nomexe = Rechexe(nomfich)
If nomexe <> "" Then
MsgBox "association trouvée"
Else
MsgBox "Pas d'association définie"
End If
End Sub
'***********************************