Fermeture ou bascule automatique entre application

[Esox]

Bonjour le forum,

J'ai une macro qui me bascule automatiquement sur Outlook, qui me met les destinataires, objets, messages, etc... mais une fois mon message envoyé, mon affichage reste sur Outlook alors que je souhaiterais revenir automatiquement sur Excel.
Mon début de macro : Set myitem = myOlApp.CreateItem(olMailItem)
Ma fin de Macro : myitem.Display

J'ai bien essayé de rajouter : Windows("Mon_fichier").activate mais en vain...

Auriez vous une idée ?

Merci,

 

[Dranreb]

Re : Fermeture ou bascule automatique entre application

Bonjour.
À tester :

Sub testap()
Application.Wait Now + 10 / 86400
AppActivate Application.Caption
End Sub

Mais il y a peut être mieux…

 

[Esox]

Re : Fermeture ou bascule automatique entre application

Bonjour,

Merci, mais ca ne va pas.. Pas grave je vais essayer de faire autrement...

 

[Pierrot93]

Re : Fermeture ou bascule automatique entre application

Bonjour,

peut être comme ceci :

AppActivate "Microsoft Excel"

bon après midi
@+

 

[Dranreb]

Re : Fermeture ou bascule automatique entre application

En fait ça revient sans doute à AppActivate Application.Caption, qui a bien un effet, mais qui chez moi se borne à faire clignoter l'onglet dans la barre des tâches, comme s'il avait un MsgBox à m'afficher. Il faudrait sûrement plutôt passer un ordre à la fenêtre Outlooc, mais je ne sais pas faire. Du moins pas sans API.

 

[Pierrot93]

Re : Fermeture ou bascule automatique entre application

Re,

En fait ça revient sans doute à AppActivate Application.Caption

,

chez moi "Application.Caption" renvoie "microsoft Excel" et le nom du classeur actif de l'appli... A vérifier mais sans doute le même effet....

 

[Esox]

Re : Fermeture ou bascule automatique entre application

Bonjour le forum,

AppActivate "Microsoft Excel" a l'air de fonctionné... je vous remerci vivement.

Bonne journée...