bonsoir Sylvain
tu peux tester la macro ci dessous
Sub ControleSiOutlookOuvert()
Dim Appli As Outlook.Application
Dim RetVal As String
'testé avec XP et excel2002
'nécéssite d'activer la reference Microsoft Outlook 10.0 0bject Library
On Error Resume Next
Set Appli = GetObject(, "Outlook.Application")
If Appli Is Nothing Then
MsgBox "Outlook est fermé"
RetVal = Shell("C:\Program Files\Microsoft Office\Office10\OUTLOOK.EXE", 1) 'adapter chemin
Else
MsgBox "Outlook est ouvert"
Appli.ActiveExplorer.Activate
End If
End Sub
bonne soiree
MichelXld