Ouvrir Outlook depuis Excel en laissant le focus sur Excel

[unrender]

Bonjour,

J'aimerais que lorsque j'ouvre mon fichier Excel, il m'ouvre (s'il n'est pas déjà ouvert) Outlook mais que Excel reste au premier plan.

Pour ça, dans Workbook/Open, je mets :

Set Appli = CreateObject("Outlook.Application")

If Appli.Explorers.Count = 0 Then
    Call Shell("Outlook.exe", vbMinimizedNoFocus)
End If

Outlook s'ouvre bien, mais il reste au premier plan, et il ne se minimise pas....

Je fais une erreur ?

Merci.

 

[gilbert_RGI]

Re : Ouvrir Outlook depuis Excel en laissant le focus sur Excel

Bonjour

et en ajoutant Appli.visible = false

 

[unrender]

Re : Ouvrir Outlook depuis Excel en laissant le focus sur Excel

Merci de la réponse.

J'aimerais cependant que Outlook reste accessible.
Je pourrais utiliser ce code, et rendre de nouveau Outlook visible en fermant le fichier Excel, mais s'il y a autre solution...

 

[unrender]

Re : Ouvrir Outlook depuis Excel en laissant le focus sur Excel

Pas d'autres idées ?