Discussion :

[PetitPapillon]

Bonjour à tous,

J'ai parcouru bon nombre de discussions sans résultat.

Mon objectif : traiter une extraction depuis PGI et une autre depuis PEA (donc deux systèmes SAP) via une macro unique

Mon problème : à ce jour mon code PGI fonctionne.
Mon problème apparaît lorsque je veux switcher sur PEA, je ne sais pas comment ouvrir la bonne page de connexion.
Initialement, j'ai utiliser la fonction enregistrement comme pour PGI.
Cependant, étant déjà sur une page PGI, la macro saisie mes identifiants PEA dans la page PGI de départ.

Je vous mets mon bout de code qui me sert à la connexion PGI.

Merci d'avance pour votre aide !

Code VBA :

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
If Not IsObject(application) Then
   Set SapGuiAuto = GetObject("SAPGUI")
   Set application = SapGuiAuto.GetScriptingEngine
End If
 
If Not IsObject(Connection) Then
   Set Connection = application.Children(0)
End If
 
   Set Session = Connection.Children(0)
 
If IsObject(WScript) Then
   WScript.ConnectObject Session, "on"
   WScript.ConnectObject application, "on"
End If
 
Session.findById("wnd[0]").maximize
Session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = TextNG
Session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = TextPGI
Session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "FR"
Session.findById("wnd[0]/usr/txtRSYST-LANGU").SetFocus
Session.findById("wnd[0]/usr/txtRSYST-LANGU").caretPosition = 2
Session.findById("wnd[0]").sendVKey 0
 
' Ouvrir ZPGA18D
Session.findById("wnd[0]/tbar[0]/okcd").Text = "/nzpga18D"
Session.findById("wnd[0]/tbar[0]/btn[0]").press

[begge]

Bonjour,

Je n'ai pas la réponse à votre question, mais je me la pose aussi!

Je fais actuellement du VBA pour SAP GUI, mais pas depuis Excel. Donc il me suffit de glisser-déplacer mon fichier VBS dans une fenêtre SAP déjà ouverte pour qu'il s'exécute dans le bon système, quels que soient le nombre de fenêtres et de systèmes qui sont actuellement ouverts sur mon PC.

Mais je ne peux pas faire ça depuis une macro Excel, du coup il faudrait que quand je la lance (dans Excel) j'aie une boîte de dialogue qui me demande le nom du système à utiliser (PROD, QUAL...), puis qu'elle se connecte à ce système (si pas déjà connecté) et qu'elle ouvre une nouvelle fenêtre pour exécuter les commandes SAP...

Avez-vous trouvé un moyen de faire cela?

Merci,

Bruno-

[Arkham46]

Bonjour,

Children(0) ne ramène que la première connexion et la première session.
Il faut boucler (For Each) sur les connections et les sessions pour trouver celle qu'on souhaite.

[begge]

Bonjour,

Merci pour l'info, je vais essayer ça!

Bonne journée

Bruno-