Discussion :

[Invité]

Bonjour tout le monde ,

Je vous présente ma problématique :
Je cherche à envoyer des informations (via l'utilisation de SendKeys) à une session ouverte de SAP. Actuellement, mon code fonctionne très bien mais je passe par la fenêtre de connexion de SAP pour arriver à mes fins, ce qui m'obligent à fermer la session en cours de SAP avant de lancer ma macro (pas très pratique). Je cherche donc un moyen d'activer la fenêtre Windows où ma sessions SAP est ouverte avant d'utiliser les SendKeys (sinon les SendKeys sont redirigés vers mon code vb).

J'ai cherché quelque informations pour activer une fenêtre Windows, l'utilisation d'API seraient peut-être nécessaire mais rien de très claire pour moi.

Merci de vos réponses !

[Invité]

Bonjour,

Au fil de mes recherches, voilà ce que j'arrive à obtenir à l'heure actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
'-----------------------------------
 
Sub Activer_Voir_Fenêtre()
Dim hwnd As Long, Voir_Fenêtre As String
 
Voir_Fenêtre = "Sans titre - Bloc-notes"
hwnd = FindWindow(vbNullString, Voir_Fenêtre)
 
If hwnd = 0 Then Exit Sub
SetForegroundWindow hwnd
ShowWindow hwnd, SW_SHOWDEFAULT
End Sub

Pour l'instant j'essaye de faire fonctionner ce code avec une simple fenêtre du bloc notes. Cependant ma variable hwnd prend la valeur 0 alors que ma fenêtre bloc notes est ouverte.