vérif outlook ouvert

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

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