Passage d'excel vers une autre application

Bonjour, voilà après de nombreuse recherche sur le site et sur le net je me suis décidé à venir poser ma question.
Dans le cadre d’un projet, je suis amené à utiliser une macro vba qui me permet de passer d’Excel vers une autre application (programmé sous TeemTalk) afin de rapatriée des données.
Pour ce faire j’ais utilisée les API de Windows (fonction FindWindows).
Néanmoins la macro étant amené à être utiliser à de nombreuse reprise sur une courte période, j’ai remarqué qu’à partir d’un certain moment la fenêtre de l’application appeler beugger (son emplacement sur l’écran se grise, le retour sur Excel a du mal et surtout le rapatriement de l’information voulu ne se fais plus)
C’est donc vers vous que je me tourne pour demander de l’aide.

ci-joint mon code :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Appelxxxxx() Dim hwnd As Long   hwnd = FindWindow(vbNullString, "xxxxxxx") SetForegroundWindow hwnd Sleep 200 ShowWindow hwnd, SW_SHOWMAXIMIZED Sleep 200 End Sub

---

PS : Sans les deux tempo le problème est identique, l'écran se grise et la macro beug

Bonjour,

Un peu au hasard :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Appelxxxxx() Dim hwnd As Long   hwnd = FindWindow(vbNullString, "xxxxxxx") SetForegroundWindow hwnd Sleep 200 DoEvents ShowWindow hwnd, SW_SHOWMAXIMIZED Sleep 200 End Sub

---

Le DoEvents, me ralenti la macro et du coup je n'ai plus le temps de rapatrier l'information voulu.
De plus je n'ai pas l'inpression que la macro est plus stable, sans cette commande la macro semble plus fluide.

"DoEvents" permet d'arrêter l'exécution de la macro le temps que le système exécute ce qu'il a à faire. Le fait que ta macro ralentisse prouve qu'il a beaucoup à faire.

Ok, j'ai donc enlevé les deux temporisations (sleep 200) et j'ai ajouté le DoEvents.
Après quelque répétition de la macro, même symptôme que la première version. L’application à appeler s’active dans la barre de tache, mais la fenêtre qui apparait à l’écran est grise.

Sinon n'y aurait-il pas une autre fonction en vba me permettant d'activer une application deja ouverte et de la faire passer au premier plan ?