VÉRIFIER SI UNE APPLICATION EST LANCÉ, SINON ON LA DÉMARRE !

'---------------------------------------------------------------------------------------
    'Cette procédure permet de vérifier si outlook est lancé, si elle ne l'est pas on la 
    'lance ! Bien sur on peut adapter le programme pour toute les applications !
    'on peut également généraliser la procédure pour passer l'application et le chemin
    'en paramètre, si ca vous dit, a vos clavier !!!!!
    '---------------------------------------------------------------------------------------

    Sub VerifOutlook()
        'Vérifie la présence d'outloo, si le process n'est pas présent on lance Outlook.
        Dim p As New Process

        Try
            'Vérification de l'existence du process (on le trouve dans le gestionnaire des taches ^^)
            If UBound(Diagnostics.Process.GetProcessesByName("OUTLOOK")) < 0 Then
                'Si il n'est pas déjà lancé on le lance donc manuellement
                p.StartInfo.FileName = "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE"
                'Définition du style de la fenêtre (maximisé, minimisé, normal, caché)
                p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
                'Démarrage du process
                p.Start()
            End If
        Catch err As Exception
            MsgBox(err.ToString(), MsgBoxStyle.Critical, "Erreur !")
        End Try
    End Sub