Discussion :

[Strata1999]

Bonjour à tous,

Dans le cadre de mon activité professionnel, j'ai été amené à automatiser pas mal d'extraction SAP à l'aide VBS.
J'arrive a faire a peu près tous ce dont j'ai besoin a un détail près.

En effet, pour certaines transactions, il est possible de sélectionner le layout à l'aide d'un champs texte, auquel cas, je rempli directement ce champs

Code :

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

session.findById("wnd[0]/usr/ctxt%LAYOUT").text = "NOM_LAYOUT"

Pour d'autres, je ne peux sélectionner le Layout qu'après avoir exécuter la transaction, or cela se fait dans une liste, et si je sais sélectionner le Nème élément d'une liste,

Code :

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

1
2
3
4
session.findById("wnd[0]/tbar[1]/btn[33]").press
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").currentCellRow = 2
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").selectedRows = "2"
session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").clickCurrentCell

Je ne sais pas identifier le contenu de ce Nème élément.
J'aimerais pouvoir tester les éléments de la liste un à un jusqu'à trouver celui que je cherche.

Merci de votre aide

[sandraros]

Je ne pratique pas vraiment, mais je vois GetCellValue dans la doc CHM fournie avec SAP GUI :
Public Function GetCellValue( _
ByVal Row As Long, _
ByVal Column As String _
) As String

[parmi]

Bonjour,

Voici comment je procède
Je déclare une variable GrdView As Object si tu n'as pas de référence ou As SAPFEWSELib.GuiGridView si tu en utilises une

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
    Set GrdView = Session.FindById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell")
    TotalRow = GrdView.RowCount
    VisibleRow = GrdView.VisibleRowCount
    Scrol = VisibleRow
    Do
        For I = 0 To VisibleRow
            If GrdView.GetCellValue(I, GrdView.ColumnOrder(0)) = "/Le Nom Que Tu Cherches" Then  'inscrire le bon nom ici
                GrdView.CurrentCellRow = I
                GrdView.SelectedRows = CStr(I)
                GrdView.ClickCurrentCell
                Exit Do
            End If
        Next
    Scrol = Scrol + VisibleRow
    Loop Until Scrol >= TotalRow

[Strata1999]

Merci bien,

J'ai essayé, ça marche nickel.

Encore merci, ça va vraiment m'aider.

[Cybherfr]

Merci !!!!

[gabovarela]

Bonjour tout le monde!

J'ai le même problème. J'ai vu la solution qui pourrait également marche pour moi, mais je ne sais pas où coller le code pour sélectionner le layout.

Voici mon code actuel. Pourriez-vous s'il vous-plaît me dire où ajouter le code du GridView. Je vous en serai très reconnaissant.

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
35
36
Session.findById("wnd[0]").resizeWorkingPane 184, 19, False
Session.findById("wnd[0]/tbar[0]/okcd").Text = "S_ALR_87013611"
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]/tbar[1]/btn[17]").press
Session.findById("wnd[1]/usr/txtENAME-LOW").Text = "dmargiot"
Session.findById("wnd[1]/usr/txtENAME-LOW").SetFocus
Session.findById("wnd[1]/usr/txtENAME-LOW").caretPosition = 8
Session.findById("wnd[1]/tbar[0]/btn[8]").press
Session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").setCurrentCell 11, "EDAT"
Session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").SelectedRows = "11"
Session.findById("wnd[1]/usr/cntlALV_CONTAINER_1/shellcont/shell").doubleClickCurrentCell
Session.findById("wnd[0]/usr/txt$1GJAHR").Text = "2020"
Session.findById("wnd[0]/usr/ctxt$1PERIV").Text = "9"
Session.findById("wnd[0]/usr/ctxt$1PERIB").Text = "9"
Session.findById("wnd[0]/usr/ctxt$1PERIB").SetFocus
Session.findById("wnd[0]/usr/ctxt$1PERIB").caretPosition = 3
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]/tbar[1]/btn[8]").press
Session.findById("wnd[0]/usr/lbl[5,11]").SetFocus
Session.findById("wnd[0]/usr/lbl[5,11]").caretPosition = 20
Session.findById("wnd[0]").sendVKey 2
Session.findById("wnd[1]/usr/lbl[1,1]").caretPosition = 20
Session.findById("wnd[1]").sendVKey 2
Session.findById("wnd[1]/tbar[0]/btn[2]").press
Session.findById("wnd[0]/tbar[1]/btn[33]").press
Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cmbG51_USPEC_LBOX").SetFocus
Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").CurrentCellRow = 227
Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").firstVisibleRow = 223
Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").SelectedRows = "227"
Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").ClickCurrentCell
Session.findById("wnd[0]/mbar/menu[0]/menu[3]/menu[1]").Select
Session.findById("wnd[1]/tbar[0]/btn[0]").press
Session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "C:\Users\gvarela\Desktop"
Session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "test 3.xlsx"
Session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 11
Session.findById("wnd[1]/tbar[0]/btn[11]").press

[parmi]

Salut,

Je n'ai plus accès à SAP...
Est-ce que la gridview est : Session.findById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell") ?

Si oui, mon code irait à la ligne 27, j'imagine... (?)