Déterminer si une application est disponible en utilisant VBA dans Microsoft Excel
Pour connaître l’état d’une application particulière disponible ou en cours d’exécution dans Microsoft Excel, consultez cet article. Nous utiliserons le code VBA pour vérifier pour renvoyer «True», si l’application est disponible ou en cours d’exécution ou de retour et «False» sinon .
Question: Je voudrais avoir une macro pour identifier en arrière-plan si l’application spécifique est en cours d’exécution ou disponible / installée dans le système.
Pour identifier l’application Outlook est en cours d’exécution ou disponible; nous devons suivre les étapes ci-dessous pour lancer l’éditeur VB:
Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic
-
Cliquez sur Insérer puis Module
Cela créera un nouveau module Entrez le code suivant dans le module
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean
' returns True if the application is running
' example: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = GetObject(, ApplicationClassName)
ApplicationIsRunning = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean
' returns True if the application is available
' example: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = CreateObject(ApplicationClassName)
ApplicationIsAvailable = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez aussi nous suivre sur Twitter et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]