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 : Sélectionner tout - Visualiser dans une fenêtre à part
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