IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Excel-SAP-Vba : Scripting - Prendre la main sur 1 fenetre "Enregistrer sous "


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre du Club
    Homme Profil pro
    Invite
    Inscrit en
    Février 2014
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Invite

    Informations forums :
    Inscription : Février 2014
    Messages : 5
    Par défaut Excel-SAP-Vba : Scripting - Prendre la main sur 1 fenetre "Enregistrer sous "
    Bjr a tous,

    Je me permets de "poster" car je n'ai rien trouvé sur le net répondant à ma problématique.

    Je souhaite automatiser les extractions de donnée de SAP vers Exel.
    Pour cela j'utilise l'enregistreur de script SAP et j'adapte le code sous Vba.

    Lors de l'exécution du code, j'ai une fenetre "Enregistrer sous" lancée par SAP et je souhaiterais "prendre la main" sur celle-ci et automatiser :
    le renommage du fichier et l'endroit ou le sauvegarder.

    Si quelqu'un peut m'aiguiller sur les notions à utiliser , j'apprécierai vraiment.

    Ci-joint un extrait du code.
    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
    Dim Mapp As Object
     
       Set SapGuiAuto = GetObject("SAPGUI")
       Set Mapp = SapGuiAuto.GetScriptingEngine
     
    If Not IsObject(Connection) Then
       Set Connection = Mapp.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
     
    On Error GoTo gestErr
     
    '..contenu du code..
     
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'Boite de dialogue "Enregistrer sous" du fichier export.MHTML => Ecrire une fonction qui renomme le fichier à sauvegarder
    ' et fixe son chemin
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
     
    session.findById("wnd[0]/usr/cntlCATS_DETAILS/shellcont/shell").pressToolbarContextButton "&MB_EXPORT"
    session.findById("wnd[0]/usr/cntlCATS_DETAILS/shellcont/shell").selectContextMenuItem "&XXL"
     
     
    'Fermeture de fenetre SAP
    session.findById("wnd[0]").Close
     
    Exit Sub
    D'avance merci
    vregn

  2. #2
    Invité de passage
    Femme Profil pro
    Étudiant
    Inscrit en
    Mars 2018
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mars 2018
    Messages : 1
    Par défaut Sap scripting fenêtre enregistrer sous
    Bonjour à tous
    Qui peut me sauver ?
    Je n'arrive pas à prendre la main sur un fichier enregistre sous , je precise il n'est pas géré via liste sauvegarder au format de xxx . Option non possible dans la transaction.
    Quand je lance sap scripting, le code s arrête à cette fenêtre. ...
    Quel est le code qui permet de reconnaître cette fenêtre ?
    J ai essayé une autre méthode telechargement html mais même constat .
    J aI un délai très court pour rendre ma copie . Aussi je serai ravie de connaître la solution.
    Merci d avance

    Gaelle.

Discussions similaires

  1. Réponses: 1
    Dernier message: 14/09/2011, 14h36
  2. Comment prendre la main sur mozilla Browser avec VBA?
    Par tamalkasi dans le forum Access
    Réponses: 1
    Dernier message: 04/03/2011, 13h52
  3. Prendre la main sur un message automatique xls : cellule protégée
    Par Gautheron dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 14/01/2009, 17h25
  4. [VBA-E] Prendre la somme sur un TCD
    Par bonilla dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 04/09/2007, 15h30

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo