Macro qui permet de récupérer des informations sur SAP et de les coller sur excel

1 pièce(s) jointe(s)

Bonjour à tous,
Je suis étudiant et je suis en stage dans une entreprise.
J’aimerai créer une macro excel qui permet de récupérer des données de SAP et de les coller dans une feuille excel.
Je voulais enregistrer un script à l’aide de l’enregistrement et playback de script mais mon compte n’est pas autorisé à réaliser cela. Et lorsque je demande à celui qui peut modifier les paramètres, d’activer la fonctionnalité, il ne veut pas. :(
Alors je m’en remets à vous. Si vous avez un ensemble de méthode me permettant de réussir cette macro, je suis preneur. :mrgreen:
Je mets un fichier dans lequel j’illustre le cheminement qui permet de récupérer les informations souhaitées.
Merci beaucoup pour le temps que vous consacrerez à répondre.

Pièce jointe 464895

Bonjour adridm,
Alors pour ma part je débute dans l'exercice.
Un gars de l'info m'a aidé sur le sujet.
Pour récupérer les codes des champs (ex: "LTAK-TANUM") tu te positionnes sur le champ et tu fais F1 / tu cliques sur le marteau et la clé (informations techniques) et tu trouves la désignation du champ dans le champ "Zone dynpro"

En gros mon appli Access ouvre SAP et va trifouiller dedans.
Ouverture de SAP:

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
25
26
Option Compare Database
Global SapGuiAuto As Object
Global session As Object
 
Sub LogonSAP()
'The below section will create an SAP session.
 
Dim Proc
 
'The below section will create an SAP session.
 
Set WshShell = CreateObject("WScript.Shell")
Set Proc = WshShell.Exec("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe")
Set SapGuiAuto = GetObject("SAPGUI")
Set SAPGuiApp = SapGuiAuto.GetScriptingEngine
Set oConnection = SAPGuiApp.OpenConnection("..SAP2000 Production             PGI", True)
Set session = oConnection.Children(0)
 
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "TON LOGIN"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "TON MOT DE PASSE"
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
 
End Sub

Fermeture de SAP:

Code:

1
2
3
4
Sub UnlogSAP()
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nex" ' remplissage de la barre des transactions
session.findById("wnd[0]").sendVKey 0
End Sub

Ouverture et collection - je rempli des champs Access avec des infos copiées dans SAP

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub CollectCMS()
Dim Connection As Object
Dim OTSelection As String
Dim OTPoste_Selection As String
Dim OTMAG_Selection As String
 
Set SapGuiAuto = GetObject("SAPGUI")
If Not IsObject(SapGuiAuto) Then
  Exit Sub
End If
Set App = SapGuiAuto.GetScriptingEngine
If Not IsObject(App) Then
  Exit Sub
End If
Set Connection = App.Children(0)
If Not IsObject(Connection) Then
  Exit Sub
End If
Set session = Connection.Children(0)
If Not IsObject(session) Then
  Exit Sub
End If
 
 
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nlt21" 'appel de la transaction SAP LT21
session.findById("wnd[0]").sendVKey 0 'entrée
session.findById("wnd[0]/usr/txtLTAK-TANUM").Text = Forms("F001_Display_Dispatch_Photos").OTSelection.Value ' remplissage de SAP à l'aide des champs se trouvant dans access
session.findById("wnd[0]/usr/txtRL03T-TAPOS").Text = Forms("F001_Display_Dispatch_Photos").OTPoste_Selection.Value ' remplissage de SAP à l'aide des champs se trouvant dans access
session.findById("wnd[0]/usr/ctxtLTAK-LGNUM").Text = Forms("F001_Display_Dispatch_Photos").OTMAG_Selection.Value ' remplissage de SAP à l'aide des champs se trouvant dans access
session.findById("wnd[0]/usr/ctxtLTAK-LGNUM").SetFocus
session.findById("wnd[0]/usr/ctxtLTAK-LGNUM").caretPosition = 3
session.findById("wnd[0]").sendVKey 0 'entrée
 
'focus sur le champ du cms
session.findById("wnd[0]/usr/ctxtLTAP-MATNR").SetFocus
'selection du champ cms
session.findById("wnd[0]/usr/ctxtLTAP-MATNR").caretPosition = 0
'selection du champ CMS et copie dans le champ du formulaire access
Forms("F001_Display_Dispatch_Photos").CMSNumber_Selection.Value = session.findById("wnd[0]/usr/ctxtLTAP-MATNR").Text
 
'Attention bug !
session.findById("wnd[0]/tbar[0]/okcd").Text = "AZSO"  '
session.findById("wnd[0]").sendVKey 0 'entrée
session.findById("wnd[0]/usr/ctxtLTAK-TBNUM").SetFocus
session.findById("wnd[0]/usr/ctxtLTAK-TBNUM").caretPosition = 5
Forms("F001_Display_Dispatch_Photos").USMNumber_Selection.Value = session.findById("wnd[0]/usr/ctxtLTAP-ABLAD").Text
 
End Sub

Attention le dernier code (AZSO) bug.

Adapte-le et amuse-toi !

Totor

Bonjour totor
Merci beaucoup pour l'aide que tu m'apportes.

J'ai essayé le code qui permet de se connecter sur SAP
Voici le début de la macro:
Code:

1 2 3 4 5 6 7 8 9 10 Sub LogonSAP() Dim Proc Set WshShell = CreateObject("WScript.Shell") Set Proc = WshShell.Exec("C:\Program Files (x86)\SAP\FrontEnd\SAPgui\saplogon.exe") Set SapGuiAuto = GetObject("SAPGUI") Set SAPGuiApp = SapGuiAuto.GetScriptingEngine Set oConnection = SAPGuiApp.OpenConnection("PR3 production", True) Set session = oConnection.Children(0)
Et à partir de ce moment-là, lors de l'exécution de la macro, une fenêtre d'erreur s'ouvre où est mentionné l'Erreur d'exécution '614':

Citation:

The enumerator of the collection cannot find en element with the specified index.

As-tu une idée de comment résoudre le problème?

Merci encore une fois pour ton aide.