Discussion :

[SSelim]

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

[Daniel.C]

Bonjour,

Un peu au hasard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SSelim]

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.

[Daniel.C]

"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.

[SSelim]

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 ?