Execution des commandes externes via une macro excel

Version imprimable

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:

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

21/11/2007, 16h11
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

Citation:
Envoyé par 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:

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

26/11/2007, 10h15
lanbok

Bonjour,

J'utilise la version : SAP ECC 6.0

Solution

Voila

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
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