Bonjour à tous,

J'ai un petit programme qui génère un message dans Outlook.
Je voudrais, après avoir généré ce message et avant de l'envoyer, qu'Excel revienne en avant-plan.
Pour cela j'utilise le petit programme ci-après :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Hwnd = FindWindow(vbNullString, "Microsoft Excel - Mon programme"
 
       Do While Hwnd1 = 0
            Hwnd1 = FindWindow(vbNullString, "Mon message Outlook - Message (HTML) ")
            newHour = Hour(Now())
            newMinute = Minute(Now())
            newSecond = Second(Now()) + 1
            waitTime = TimeSerial(newHour, newMinute, newSecond) 'temporisation
            Application.Wait waitTime
        Loop
 
        'Pour ramener Excel au premier plan
        BringWindowToTop Hwnd
        'Affiche en mode "Normal"
        ShowWindow Hwnd, 5
Cela ne fonctionne pas, vous vous en doutez car sinon je ne vous solliciterais pas. Le message reste en avant plan.

Quelqu'un pourrait-il m'expliquer pourquoi ?