[résolu] reconnaitre si outlook est ouvert

[babsh]

Bonjour,
Depuis une macro excel, je voudrais lancer outlook s´il n´est pas déjà ouvert. Comment faire pour reconnaitre s´il est déjà ouvert?
Pour le lancer je pense utiliser:
Shell ("C:\Programme\Microsoft Office\OUTLOOK.EXE")

Merci d´avance

 

[Matheop]

Re : reconnaitre si outlook est ouvert

Salut babsh.

Essaie ceci pour voir.

Sub outLook()

  Dim X As Object
  On Error Resume Next
  Set X = GetObject(, "Outlook.application")
    
  If Err.Number = 0 Then
   MsgBox "Outlook est déjà ouvert"
  Else
   MsgBox "Outlook non lancé"
   'Shell ("C:\Programme\Microsoft Office\OUTLOOK.EXE")
  End If

End Sub

Cordialement,
Mat'

 

[babsh]

Re : reconnaitre si outlook est ouvert

Ca marche! Parfait!
Merci Mat´