Vérifier si une application est lancé, sinon on la démarre !

Contenu du snippet

Ce code permet de vérifier si une application est démarré, si elle ne l'est pas on la lance !
Au départ j'ai eu besoin de le faire car j'ai un traitement qui utilise l'application outlook, hors il arrivait que des personnes fermaient accidentellement outlook, et donc mon traitement ne pouvait tourner !
Ainsi plus de soucis, dès que mon traitement se lance j'exécute ce petit bout de code et je suis sur que mon traitement tourne bien !

Evidemment vous pouvez l'adapter pour n'importe quel application, il suffit d'en récuperer la syntaxe exacte dans le gestionnaire des tâches.
On peut très bien imaginer transformer la procédure en fonction avec en passage de paramètre l'appli a vérifier et le chemin de son exécutable !!!

Source / Exemple :


'---------------------------------------------------------------------------------------
    '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

Conclusion :


Tout code est perfectible !
Merci de vos commentaires !!!

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.