[VBA] Basculer vers une application externe à Excel

[F22Raptor]

Hello,
J'utilise ce code pour vérifier si une appli est ouverte.
L'idée finale étant : si elle ne l'est pas, je la lance, sinon, je bascule.
Mais je n'en suis pas là !
Mon problème est que ça marche bien, MAIS que je ne teste que pour Word ... C'est en fait un progiciel que je dois tester ... et je ne connais pas son nom d'application !

Avez-vous une idée pour récupérer le nom d'une appli (éventuellement sans Excel), ou sinon, avec VBA, avoir le nom des applis ouvertes, du genre : For Each Application in Applications, msgbox Application.name (qui ne marche pas, bien sûr !)

Sub AppliOuverte()

    Dim X As Object
    
    On Error Resume Next
    
    Set X = GetObject(, "Word.application")
    If Err.Number = 0 Then MsgBox "Appli est déjà ouverte"

End Sub

 

[mromain]

Re : [VBA] Basculer vers une application externe à Excel

Bonjour F22Rptor,

Tu trouveras ici une fonction qui contrôle si un process est en train de tourner.

A+

 

[F22Raptor]

Re : [VBA] Basculer vers une application externe à Excel

génial ! Merci