vérif outlook ouvert

[fredl]

Bonjour à tous,
pouvez vous me dire comment faire de excel pour vérifier si l'application outlook et ouverte?
Merci d'avance de votre réponse.
Bonne journée
excellement
Frédéric

 

[MichelXld]

bonjour

j'espere que cette macro répondra à ta demande

Sub ControleSiOutlookOuvert()
Dim Appli As Outlook.Application

On Error Resume Next
Set Appli = GetObject(, 'Outlook.Application')
If Appli Is Nothing Then
MsgBox 'Outlook est fermé'
Else
MsgBox 'Outlook est ouvert'
End If
End Sub


bonne journée
MichelXld

 

[fredl]

Merci michel de ta réponse,
c'est exactement ce qu'il me fallait
Tu es un chef!
encore merci
excellement
Frédéric 🙂