Discussion :

[lanbok]

Bonjour,

j'essaie de transporter un OT (G50K900004 dans mon exemple)d'un serveur vers un autre (du serveur Qual vers le serveur Prod par exemple) en faisant un macro excel. En fait, j'ai pas trouvé de bon documents dessus . Donc, j'ai un bout de code qui ne marche pas (mon result est toujours égal à faux).

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
    Set ctrl = CreateObject("SAP.Functions")
    Set sapConnection = ctrl.Connection
    sapConnection.client = "100"
    sapConnection.user = "toto"
    sapConnection.password = "pass"
    If sapConnection.Logon(1, False) <> False Then 
      boolLogon = True
      Set SxpgCommandExecute = ctrl.Add("SXPG_COMMAND_EXECUTE")
      SxpgCommandExecute.Exports("COMMANDNAME") = "stms"
      SxpgCommandExecute.Exports("TARGETSYSTEM") = "G50"
      SxpgCommandExecute.Exports("STDOUT") = "X"
      SxpgCommandExecute.Exports("STDERR") = "X"
      SxpgCommandExecute.Exports("ADDITIONAL_PARAMETERS") = "G50K900004 G50 100"
      result = SxpgCommandExecute.Call
   Else
     MsgBox "No connection to R/3 !"
     Exit
   End if

Merci d'avance

[splash1]

il me semble que STMS c'est le nom de la transaction pour la gestion des trasports

la commande unix est : tp

cf le doc suivant
http://help.sap.com/printdocu/core/P...S/BCCTSTLS.pdf

[balawoo]

Bonjour,

j'essaie de transporter un OT (G50K900004 dans mon exemple)d'un serveur vers un autre (du serveur Qual vers le serveur Prod par exemple) en faisant un macro excel. En fait, j'ai pas trouvé de bon documents dessus . Donc, j'ai un bout de code qui ne marche pas (mon result est toujours égal à faux).

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
    Set ctrl = CreateObject("SAP.Functions")
    Set sapConnection = ctrl.Connection
    sapConnection.client = "100"
    sapConnection.user = "toto"
    sapConnection.password = "pass"
    If sapConnection.Logon(1, False) <> False Then 
      boolLogon = True
      Set SxpgCommandExecute = ctrl.Add("SXPG_COMMAND_EXECUTE")
      SxpgCommandExecute.Exports("COMMANDNAME") = "stms"
      SxpgCommandExecute.Exports("TARGETSYSTEM") = "G50"
      SxpgCommandExecute.Exports("STDOUT") = "X"
      SxpgCommandExecute.Exports("STDERR") = "X"
      SxpgCommandExecute.Exports("ADDITIONAL_PARAMETERS") = "G50K900004 G50 100"
      result = SxpgCommandExecute.Call
   Else
     MsgBox "No connection to R/3 !"
     Exit
   End if

Merci d'avance

Bonjour,

tu utilises quelle version de SAP, car j'avais chercher à faire des connexion Excel SAP et cela n'était plus autorisé sur la version 4.7 par la méthode que je voulais utiliser.

Merci de ton retour,

Philippe

[lanbok]

Bonjour,

J'utilise la version : SAP ECC 6.0

[lanbok]

Voila

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
37
38
39
40
41
42
43
44
Sub Transport()
    'Log in
    Dim ObjSapFunc As Object
    Dim ObjLogCtrl As Object
    Dim ObjConnection As Object
    
    Set ObjSapFunc = CreateObject("SAP.Functions")
    Set ObjLogCtrl = CreateObject("SAP.Logoncontrol.1")
    Set ObjConnection = ObjLogCtrl.NewConnection
    
    ObjConnection.user = "toto"
    ObjConnection.password = "pass"
    ObjConnection.client = "100"
    ObjConnection.HostName = "tutu"
    ObjConnection.SystemNumber = 45
    If ObjConnection.Logon(0, True) = False Then
        MsgBox (sapConnection.IsConnected)
        End
    End If
    Set ObjSapFunc.Connection = ObjConnection
    
    'Transport
    Dim codeReturn As String
    Dim output As String
    Dim msgReturn As Object
    
    Set tp = ObjSapFunc.Add("SXPG_COMMAND_EXECUTE")
    tp.Exports("COMMANDNAME") = "MY_TRANSPORT"
    'MY_TRANSPORT est une commande extern que j'ai créée
    'elle contient le débbut de la commande tp (tp import) qui va être concatenée avec ADDITIONAL_PARAMETERS
    'Pour la creer, utilizez la transaction SM69
    tp.Exports("ADDITIONAL_PARAMETERS") = "G50K900004 G50 client100 pf=\\tutu\sapmnt\trans\bin\Votre_ficher_profil.PFL"
    'vous pouvez trouver le paramettre transdir dans le fichier profil (Votre_ficher_profil.PFL) du 
    'systeme SAP dans l'environement transport (transdir = \\$(SAPTRANSHOST)\sapmnt\trans\)
    result = tp.Call
    codeReturn = tp.Imports("EXITCODE")
    
    'Log off
    ObjConnection.Logoff
    Set ObjConnection = Nothing
    Set oLogonCtrl = Nothing
    Set ObjSapFunc = Nothing
End Sub