controle d'une autre application

subtil2 · 09/03/2008, 14h54

Bonjour à toute la communauté!

Dans le cadre d'un travail de fin d'étude, j'ai besoin d'envoyer depuis excel des informations à un logiciel de calcul en différences finies, FLAC 3D (screen de l'application ci-dessous)

Depuis Excel, j'ouvre FLAC3D grâce à la commande suivante :

Code :

     Shell "C:\Program Files\itasca\flac3d300\f3300_exe.exe", vbNormalFocus

je récupère ensuite le handle avec :

Code :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
     Dim hwnd As Long
 
     hwnd = FindWindow(vbNullString, "FLAC3D 3.00-261")

jusque la tout va bien.
j'aimerai maintenant pouvoir entrer du texte dans la ligne de commande de FLAC 3D.
Pour cela, il faut me semble t-il récupérer le handle du composant édit dans lequel on veut écrire. J'ai essayé d'utiliser la procédure suivante, sans succès :

Code :

 Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA"    (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
    Dim hwndedit As Long
 
    hwndedit = FindWindowEx(hwnd, 0, "Edit", vbNullString)

hwndedit prend la valeur 0.

Merci d'avance pour votre aide!

LedZeppII · 19/04/2008, 23h01

Bonsoir,

Au vu de la copie d'écran, je dirai que le contrôle à droite de "Flac3D" n'appartient pas à la fenêtre "FLAC3D 3.00-261",
mais à la fenêtre fille "Command Window".

Essaie d'abord de récupérer le handle de cette seconde fenêtre avec FindWindowEx.

A+

09/03/2008, 14h54	#1 (permalink)
subtil2 Invité de passage Date d'inscription: mars 2008 Messages: 1	controle d'une autre application Bonjour à toute la communauté! Dans le cadre d'un travail de fin d'étude, j'ai besoin d'envoyer depuis excel des informations à un logiciel de calcul en différences finies, FLAC 3D (screen de l'application ci-dessous) Depuis Excel, j'ouvre FLAC3D grâce à la commande suivante : Code : Shell "C:\Program Files\itasca\flac3d300\f3300_exe.exe", vbNormalFocus je récupère ensuite le handle avec : Code : Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Dim hwnd As Long hwnd = FindWindow(vbNullString, "FLAC3D 3.00-261") jusque la tout va bien. j'aimerai maintenant pouvoir entrer du texte dans la ligne de commande de FLAC 3D. Pour cela, il faut me semble t-il récupérer le handle du composant édit dans lequel on veut écrire. J'ai essayé d'utiliser la procédure suivante, sans succès : Code : Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Dim hwndedit As Long hwndedit = FindWindowEx(hwnd, 0, "Edit", vbNullString) hwndedit prend la valeur 0. Merci d'avance pour votre aide! Dernière modification par Heureux-oli ; 09/03/2008 à 18h58 Motif: Balises de code

19/04/2008, 23h01	#2 (permalink)
LedZeppII Rédacteur Date d'inscription: décembre 2005 Localisation: IdF Messages: 2 057	Bonsoir, Au vu de la copie d'écran, je dirai que le contrôle à droite de "Flac3D" n'appartient pas à la fenêtre "FLAC3D 3.00-261", mais à la fenêtre fille "Command Window". Essaie d'abord de récupérer le handle de cette seconde fenêtre avec FindWindowEx. A+

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Général VBA
controle d'une autre application

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email