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")
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