outlook lancement macro

[SYLVAIN]

Bonjour le forum !!!!!

VOila mon petit problem,

je lance une macro sous xls 2000 qui ouvre outlook (voir ci dessous)

Dim RetVal

RetVal = Shell("C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE", 1)

mon probleme est que si outlook est déja ouvert, il m'ouvre une nouvelle fenetre outlook, comment faire pour que si outlook est déja ouvert il m'ouvre pas une nouvelle fenetre mais il me bascul juste sur outlook.

++ et bonne journée ... bientot le we... 🙂

 

[michel]

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