Piloter une fenêtre depuis Excel en VBA

Bonjour, je cherche à piloter une fenêtre sous windows qui est déjà ouverte.

En fait mon client se log dans cette fenêtre, puis ouvre mon classeur excel qui effectue tout le traitement nécessaire automatiquement. A un moment le traitement nécessite de retourner dans la fenêtre de log, puis d'effectuer quelques sendkeys, récupérer les données dans un csv et ensuite mon traitement reprend.

Ce que je voudrais donc savoir, c'est :

Est-il possible de piloter une fenêtre qui n'a pas été ouverte par Excel ?

Comment faire ? (oui parce que me répondre oui ne m'aidera pas trop :mrgreen: )

Merci d'avance.

Bonjour,

Citation:

---

je cherche à piloter une fenêtre sous windows qui est déjà ouverte.

---

Citation:

---

Est-il possible de piloter une fenêtre qui n'a pas été ouverte par Excel ?

---

C'est un petit peu contradictoire tout ça! Et je comprends pas du tout ton problème au passage!
Soit plus clair stp, surtout par ton "pilotage" de fenêtre

Cdt,

Bonjour,

Ce n'est pas un sujet que je maîtrise, mais regarde du coté des API Windows

Peut être que ce lien t'aidera
http://support.microsoft.com/kb/164735

Citation:

---

Envoyé par jackborogar

Bonjour,






C'est un petit peu contradictoire tout ça! Et je comprends pas du tout ton problème au passage!
Soit plus clair stp, surtout par ton "pilotage" de fenêtre

Cdt,

---

Non, non ça n'est pas contradictoire.

Je vais prendre un exemple.

Mon client lance le programme toto.exe (ce programme à comme nom de fenêtre "toto").
Il se log puis double clique sur mon fichier Excel qui lance le traitement que j'ai à faire. (donc focus sur Excel à ce stade).
Ensuite il faut qu'Excel remette le focus sur "toto" puis fasse une série de sendkeys. Et revienne ensuite sous Excel pour effectuer la suite.

J'ai beau chercher sur le net je ne trouve pas grand chose à ce sujet (et comme en plus 90% des gens confondent vba et vb c'est la joie :mouarf:)

Citation:

---

Envoyé par jfontaine

Bonjour,

Ce n'est pas un sujet que je maîtrise, mais regarde du coté des API Windows

Peut être que ce lien t'aidera
http://support.microsoft.com/kb/164735

---

Merci je vais explorer cette piste.

Dans ton code, tu as juste à stopper ta macro, appelé ta fenêtre toto (qui récupére tes sendkeys" puis continuer ta macro non?

Citation:

---

Envoyé par jackborogar

Dans ton code, tu as juste à stopper ta macro, appelé ta fenêtre toto (qui récupére tes sendkeys" puis continuer ta macro non?

---

Oui. J'ai tenté avec un :

Window("nom de la fenêtre").Activate mais ça ne fonctionnait pas.

Si tu veux appeler un exécutable utilise la commande Shell !

Code:

---

shell "c:\toto.exe"

---

bonjour a tous

zweet comme te la dis Jfontaine il va te falloir utiliser les api

un exemple pour fermer une fenetre autre que l'application a condition de connaitre le nom de la fenetre
api utilisé
FindWindow pour trouver le handle(identifiant de la fenetre)
sendmessage pour simuler le clic sur croix rouge
tu a aussi showwindow pour activer ,agrandir, reduire ,ect... une fenetre
dans cet exemple on va fermer adobe reader

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

'apis windows pour gérer la recherche de l'identifiant de la fenetre (handle) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'apis window pour gérer les simulation de click sur les boutons de la caption Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'apis window pour gérer les affichage des fenetre Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 'constante représentant la position des fenetres Private Const WM_CLOSE As Long = &H10 Private Const HTCAPTION As Long = 2& ' variable servant a nommer le handle obtenue avec findwindow Dim lHwnd As Long     sub fermelafenetre() NomDeLafenetre = "le nom du fichier " & " - " & "Adobe Reader" '* lHwnd = FindWindow(vbNullString, NomDeLafenetre)   'on va fermer la fenetre de adobe reader sinon on poura pas supprimer le fichier pdf portant * ' l 'ancien 'nom car il est utilisé pour cela on va utiliser les apis windows en captant * 'le handle de la fenetre adobe reader et simuler la fermeture par la croix * Call SendMessage(lHwnd, WM_CLOSE, HTCAPTION, ByVal 0&) 'on ferme adobe reader *   end sub

---

bonne lecture
au plaisir

Je testerai ça demain merci beaucoup à vous deux !

@jackborogar : C'est juste une fenêtre contenant un émulateur qui contrôle un terminal distant et c'est obligatoirement l'utilisateur qui le lance malheureusement.