Sélectionner un layout dans une liste SAP GUI SCRIPTING
Après avoir cliqué sur “select layout”, il suffit de faire un clic droit dans la colonne gauche de la liste, d’aller dans search puis d’indiquer le nom du layout. Et voilà, vous venez de sélectionner un layout dans une liste SAP.
Il y a 2 méthodes :
- Vous enregistrez votre macro en ajoutant les étapes indiquées ci-dessous dans la partie I
- Vous rajoutez le bout de code que vous trouverez dans la partie II
I – Les étapes à rajouter pendant l’enregistrement d’une macro pour sélectionner un layout dans une liste
- Après avoir cliqué sur “sélectionner un layout / choose layout“, faites un clic droit dans la colonne gauche de la liste, comme suit :
- Vous allez obtenir la fenêtre suivante :
- Rentrez dans la case “Search Term” le nom du layout que vous voulez sélectionner puis validez :
- Le layout est maintenant sélectionné. Quittez la fenêtre en cliquant sur la croix rouge pour revenir à la liste précédente :
- Le curseur est apparu sur le layout que vous avez sélectionné, validez et c’est bon !
- Une fois que vous avez exporté votre table, vous pouvez l’intégrer directement dans un fichier Excel en faisant comme ceci :
- Une fois votre table intégrée à Excel, envoyez la par mail à vos collaborateurs, on vous explique 4 méthodes ultra simples et efficaces pour le faire.
II – Le code à rajouter dans la macro si vous avez déjà enregistré votre macro et que vous ne voulez pas l’enregistrer une seconde fois
- Faites un clic droit sur votre fichier de script en .vbs et ouvrez le bloc note
- Insérez dans votre script le bout de code suivant :
objSess.FindById("wnd[0]/tbar[1]/btn[33]").Press 'correspond au clic sur le bouton "select layout"
objSess.FindById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").CurrentCellRow = -1
objSess.FindById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").SelectColumn "VARIANT"
objSess.FindById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").ContextMenu
objSess.FindById("wnd[1]/usr/ssubD0500_SUBSCREEN:SAPLSLVC_DIALOG:0501/cntlG51_CONTAINER/shellcont/shell").SelectContextMenuItem "&FIND"
objSess.FindById("wnd[2]/usr/txtGS_SEARCH-VALUE").Text = "/FR_CUT_REPO" 'indiquer ici entre guillements le nom du layout
objSess.FindById("wnd[2]/usr/txtGS_SEARCH-VALUE").CaretPosition = 12
objSess.FindById("wnd[2]/tbar[0]/btn[0]").Press
