basculer vers programme dans macro excel

[pipouche]

Bonjour,

Dans une feuille Excel j'ai un bouton derrière lequel j'ai affecté une macro.
Cette macro est censée déclencher le basculement vers outlook et non pas son ouverture car outlook est ouvert en permanence.
Voilà ce que j'ai écrit pour l'instant, mais bien sûr ça ouvre une seconde fois outlook.

'Sub BasculeProgramme()
ValRetour = Shell("C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE", 1)
Application.Wait Now + TimeValue("00:00:04")

Merci de votre aide.
Pipouche

 

[MichelXld]

Re : basculer vers programme dans macro excel

bonjour

si Outlook est ouvert, tu peux tester

Dim Appli As Object
On Error Resume Next
Set Appli = GetObject(, "Outlook.Application")
If Appli Is Nothing Then
    MsgBox "Outlook est fermé"
Else
    Appli.ActiveExplorer.Activate
End If

bon apres midi
MichelXld