OUVRIR UN DOCUMENT AVEC SON PROGRAMME EN VB.NET ET RECUPERE L'ID DU PROCESS

    Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As _
String, ByVal lpDirectory As String, ByVal lpResult As String) As Int32

    Function TrouveExe(ByVal nomfich) As String
        'cette fonction recherche l'executable du fichier. Elle utilise une fonction API

        Dim FileDir As String 'Je n'utilise pas ce parametre mais je le crée
        Const MAX_PATH As Integer = 255 'valeur maximum de la réponse
        Dim FilePath As New String(" "c, MAX_PATH) 'initialisation de la chaine en 255 caractes
        If FindExecutable(nomfich, FileDir, FilePath) > 32 Then
            TrouveExe = FilePath
        Else
            TrouveExe = ""
        End If
        'si la fonction c'est bien executee, je recupere le chemin et le nom de l'executable
    End Function

    Public Function Execute(ByVal Nomfich As String) As Integer
        'en parametre : le chemin et le nom du fichier avec son extention
        Dim nomexe As String = TrouveExe(Nomfich)
        'nom exe contient le chemin et le nom de l'executable
        Dim proc As New Process()
        'process est une classe de vb.net
        If nomexe <> "" Then
            proc.StartInfo.FileName = nomexe 'chemin et nom de l'executable
            proc.StartInfo.Arguments = Nomfich 'chemin et nom du fichier
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Normal 'Ouvre dans une fenetre normale (peut etre cache, minimisee, ...)
            proc.StartInfo.UseShellExecute = True 'Utilise le shell pour l'execution
            proc.StartInfo.CreateNoWindow = False 'cree une fnouvelle fenetre
            proc.Start() 'lance l'executable en ouvrant le document
            Execute = proc.Id 'recupere le handle . ce handle permer via d'autre fonction de gerer le process
        Else
            Execute = 0
        End If


    End Function