Exportation automatique SAP vers Excel

Question

Je travaille sous sap et j aimerais exporter des donnees vers Excel automatiquement. Es ce possible? Je sais que l on peut exporter les données sap vers excel en manu via des tcd. Mais peut on le faire en auto gerer par excel? Par exemple quand on clic sur un bouton excel, on met a jour le tableur Excel avec les données extraite automatiquement de sap. Es ce possible? Connaissez-vous un script? Je vous remercie Jc...

Invité · Answer

Vous pouvez utiliser l'enregistreur de script de SAP pour avoir un fichier ".VBS" et le code qui va bien Ensuite il faut le manipuler avec Excel pour pouvoir changer certaines "variables" Et l'exécuter avec le Shell...

Cognomen · Answer

Pour enregistrer un script sur SAP rien de plus simple. En premier ALT et F12 Puis dans liste qui c'est ouverte sélectionné "Enregistrement et playback de script" Après avoir créé la macro, il vous suffit de l'enregistrer et d'en extraire le code. Pour l’automatiser via excel il reste quelques petites modification à réaliser sur le script La SCRIPT SAP s'affiche de cette manière de base If Not IsObject(application) Then Set SapGuiAuto = GetObject("SAPGUI") Set application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(connection) Then Set connection = application.Children(0) End If If Not IsObject(session) Then Set session = connection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject session, "on" WScript.ConnectObject application, "on" End If session.findById("wnd&#91;0&#93;").maximize session.findById("wnd&#91;0&#93;/tbar&#91;0&#93;/okcd").text = "*****" session.findById("wnd&#91;0&#93;").sendVKey 0 session.findById("wnd&#91;0&#93;/usr/ctxtS_WERKS-LOW").text = "8876" session.findById("wnd&#91;0&#93;/usr/ctxtS_WERKS-LOW").setFocus session.findById("wnd&#91;0&#93;/usr/ctxtS_WERKS-LOW").caretPosition = 4 session.findById("wnd&#91;0&#93;/usr/btn%_S_DISPO_%_APP_%-VALU_PUSH").press session.findById("wnd&#91;1&#93;/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I&#91;1,0&#93;").text = "***" session.findById("wnd&#91;1&#93;/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I&#91;1,1&#93;").text = "****" session.findById("wnd&#91;1&#93;/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I&#91;1,1&#93;").setFocus session.findById("wnd&#91;1&#93;/usr/tabsTAB_STRIP/tabpSIVA/ssubSCREEN_HEADER:SAPLALDB:3010/tblSAPLALDBSINGLE/ctxtRSCSEL_255-SLOW_I&#91;1,1&#93;").caretPosition = 3 '--------------------------------------------------------------------------------- session.findById("wnd&#91;1&#93;/tbar&#91;0&#93;/btn&#91;8&#93;").press session.findById("wnd&#91;0&#93;/usr/ctxtVARIANT").text = "/*******" session.findById("wnd&#91;0&#93;/usr/ctxtVARIANT").setFocus session.findById("wnd&#91;0&#93;/usr/ctxtVARIANT").caretPosition = 9 session.findById("wnd&#91;0&#93;/tbar&#91;1&#93;/btn&#91;8&#93;").press session.findById("wnd&#91;0&#93;/usr/cntlGRID1/shellcont/shell").contextMenu session.findById("wnd&#91;0&#93;/usr/cntlGRID1/shellcont/shell").selectContextMenuItem "xxxx" session.findById("wnd&#91;1&#93;/usr/radRB_1").setFocus session.findById("wnd&#91;1&#93;/usr/radRB_1").select session.findById("wnd&#91;1&#93;/tbar&#91;0&#93;/btn&#91;0&#93;").press session.findById("wnd&#91;1&#93;/usr/ctxtDY_PATH").text = "xxxxxxx" session.findById("wnd&#91;1&#93;/usr/ctxtDY_PATH").setFocus session.findById("wnd&#91;1&#93;/usr/ctxtDY_PATH").caretPosition = 11 session.findById("wnd&#91;1&#93;/tbar&#91;0&#93;/btn&#91;11&#93;").press session.findById("wnd&#91;0&#93;/tbar&#91;0&#93;/btn&#91;3&#93;").press session.findById("wnd&#91;0&#93;/tbar&#91;0&#93;/btn&#91;3&#93;").press '--------------------------------------------------------------------------------- La seule partie du script qui nous intéresse est la partie entre les deux barres de ---- Après quelque modification pour l'adapter a VBA on trouve ceci: Dim App, Connection, session As Object Set SapGuiAuto = GetObject("SAPGUI") Set App = SapGuiAuto.GetScriptingEngine Set Connection = App.Children(0) Set session = Connection.Children(0) '--------------------------------------------------------------------------------- session.findById("wnd&#91;1&#93;/tbar&#91;0&#93;/btn&#91;8&#93;").press session.findById("wnd&#91;0&#93;/usr/ctxtVARIANT").text = "/*******" session.findById("wnd&#91;0&#93;/usr/ctxtVARIANT").setFocus session.findById("wnd&#91;0&#93;/usr/ctxtVARIANT").caretPosition = 9 session.findById("wnd&#91;0&#93;/tbar&#91;1&#93;/btn&#91;8&#93;").press session.findById("wnd&#91;0&#93;/usr/cntlGRID1/shellcont/shell").contextMenu session.findById("wnd&#91;0&#93;/usr/cntlGRID1/shellcont/shell").selectContextMenuItem "xxxx" session.findById("wnd&#91;1&#93;/usr/radRB_1").setFocus session.findById("wnd&#91;1&#93;/usr/radRB_1").select session.findById("wnd&#91;1&#93;/tbar&#91;0&#93;/btn&#91;0&#93;").press session.findById("wnd&#91;1&#93;/usr/ctxtDY_PATH").text = "xxxxxxx" session.findById("wnd&#91;1&#93;/usr/ctxtDY_PATH").setFocus session.findById("wnd&#91;1&#93;/usr/ctxtDY_PATH").caretPosition = 11 session.findById("wnd&#91;1&#93;/tbar&#91;0&#93;/btn&#91;11&#93;").press session.findById("wnd&#91;0&#93;/tbar&#91;0&#93;/btn&#91;3&#93;").press session.findById("wnd&#91;0&#93;/tbar&#91;0&#93;/btn&#91;3&#93;").press '--------------------------------------------------------------------------------- Il ne vous reste plus qu'à adapter cette démarche à votre SCRIPT SAP Cognomen...

Lucas Mr Macros · Answer

L'exemple de Cognomen est top mais si tu débute, tu y arriveras mieux avec une vidéo. J'ai fait une série de tutoriels sur Youtube qui explique exactement ce que tu veux faire : exporter une table depuis SAP pour l'intégrer dans un fichier Excel. Le lien de le vidéo est ICI Si tu as d'autres questions n'hésite pas, Lucas...