Discussion :

[Bklein51]

Bonjour, je cherche à lancer des transaction sous SAP (ex : IW31) et remplir les données dans SAP via excel et ses macros.

J'ai très peu d'expérience dans ce domaine mais j'ai déjà un peu fouillé sans grand succès. Je ne sais pas vraiment quelles références faut-il cocher dans VBA-project :/

Pourriez-vous me guider un peu ?

Merci d'avance,

[parmi]

Bonjour,

Il y a un forum concernant SAP ICI
Ce serait peut-être une bonne place pour y poser tes questions.

[Bklein51]

Bonjur parmi,

Ok mais ne suis-je pas sur un forum concernant excel ? La manip que je cherche à faire se fait sur excel tout de même..

[parmi]

Voici un exemple de connexion au serveur

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
45
46
47
48
49
50
51
52
53
54
'Dans une feuille excel, indiquer tous les éléments de connexion au serveur SAP de la façon suivante : de ligne 1 à 8 en A
'Renseignements pour connexion
'user ID
'password
'System (SID)
'IP serveur SAP
'N° system
'mandant
'langue
 
Private Sub TestConnexion()
    Dim functionCtrl As Object      'Function Control (Collective object)
    Dim sapConnection As Object     'Connection object
    Dim theFunc As Object           'Function object
 
    On Error GoTo Erreur
 
    Set functionCtrl = CreateObject("SAP.Functions")
    Set sapConnection = functionCtrl.Connection
    SAP1.Caption = ""
 
    'SAP1
    ' le premier controle regarde si le mot de passe est bien renseigné dans la feuille excel.
    ' s'il ne l'est pas, il va en gestion d'erreur
    If Sheets("Feuil1").Range("a3").Value = "" Then GoTo PWerror
 
    sapConnection.User = Sheets("Feuil1").Range("a2").Value
    sapConnection.Password = Sheets("Feuil1").Range("a3").Value
    sapConnection.System = Sheets("Feuil1").Range("a4").Value
    sapConnection.ApplicationServer = Sheets("Feuil1").Range("a5").Value
    sapConnection.SystemNumber = Sheets("Feuil1").Range("a6").Value
    sapConnection.Client = Sheets("Feuil1").Range("a7").Value
    sapConnection.Language = Sheets("Feuil1").Range("a8").Value
 
    ' connection à SAP sans afficher le logon screen
    If sapConnection.Logon(0, True) <> True Then
        MsgBox "Connexion réussie"
    Else
        MsgBox "Connexion échouée" & vbCrLf & _
               "Vérifier toutes les informations"
    End If
 
    ' déconnexion
    sapConnection.logoff
 
    Exit Sub
 
PWerror:
    MsgBox "Vous devez inscrire un mot de passe"
    Exit Sub
 
Erreur:
    MsgBox Err.Number & vbCrLf & Err.Description
End Sub

Par contre, il te faudra connaître les noms des tables que tu veux manipuler, ce qui est rarement possible dans le cadre d'une entreprise...

[parmi]

Une autre façon de faire est de passer par l'enregistreur de script dans SAP et sauvegarder le résultat (fichier créé) sur ton disque dur (ou réseau)
Ensuite, tu pourrais rouler ce script à partir d'Excel avec Shell (ou ShellExecute)
Mais je n'ai pas beaucoup d'expérience là-dessus.
Jamais eu le temps de m'y mettre vraiment...