Discussion :

[SAP_Excel]

Bonjour,
Je réalise actuellement une macro en VBA qui à pour but d'extraire des infos en ouvrant SAP.
J'ai réussi à réaliser ceci ( La macro ouvre SAP, et réalise le script dont j'ai besoin ) mais à la fin de la procédure, SAP reste ouvert.
Quelqu'un peut m'indiquer quelle ligne de code rentrer pour fermer automatiquement SAP ^à la fin de la procédure ?

Merci d'avance

[joe.levrai]

Bonjour,

pas de bras, pas de chocolat

pas de présentation du code utilisé, pas de solution viable à te proposer

[SAP_Excel]

Bonjour,
Voilà mon début de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub LAUNCH_SAP() 'Macro qui lance SAP L22
Dim Launch
Launch = Shell("Mon_Chemin",3) 'Ouvre L22 et se connecte
Set oWsh = CreateObject("Shell.Application") ' Permet d'exécuter un script en vbs
oWsh.ShellExecute "Chemin_vers_mon_script_VB" ' indique l'endroit ou on va chercher le script
Set oWsh = Nothing
End sub

Voilà le début du code. Le script en .Vbs a été enregistré à l'aide de l'éditeur de script de SAP.
à la fin de ce code, SAP reste ouvert.
J'ai essayé de faire une procédure de type " taskkill" mais sans succès ...

Petit UP

[SAP_Excel]

personne n'a une idée ?

[joe.levrai]

sur le forum SAP ?

https://archive.sap.com/discussions/thread/3747539


et trouvé aussi ailleurs sur le web

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set wshell = createObject("Wscript.Shell")    
wshell.run chr(34) & <SAP logon path> & "saplogon.exe " & chr(34)    
wscript.Sleep 500    
bWindowFound = Wshell.AppActivate("SAP Logon")    
if bWindowFound then    
    Wshell.appActivate "SAP Logon"    
    WScript.Sleep 200    
    Wshell.sendkeys "%{F4}"    
    WScript.Sleep 200    
end if