Discussion :

[Filou78C]

Bonjour,
J'utilise beaucoup de macro Excel pour extraire des données dans SAP que je retraite ensuite sur Excel avec des TCD ou des BDD.

La transaction ZS126 me permet d'extraire tous les Idocs (qui portent des factures) transmis par SAP vers les plates-formes Bprocess ou Cegedim pour une date donnée.
Or si pour une journée il n'y a pas d'Idocs SAP me le signale avec un pop-up informatif pour me dire "Aucun IDOC n'a été sélectionné". Je souhaiterais que ma macro ne plante pas et avec un msgbox me dise que pour cette journée il n'y a pas d'Idoc.
Je joint un fichier avec la macro, au moins le début et je signale la ou ça plante...
Une idée quelqu'un ?
Merci d'avance
Classeur6.xlsm

[daniel-12]

Bonjour
j'ai aussi eu ce problème lorsque dans une transaction on a une question qui est posée mais pas toujours

ex:
-lors d'une connection j'ai parfois la question, voulez vous tuer la session ouverte sur un autre pc
-lors de l'ouverture d'un document, j'ai parfois la question, voulez vous l'ouvrir en FR ou EN


la solution que j'ai trouvée et qui semble fonctionner dans mes 2 cas c'est celle ci

on fait le script avec la version "longue" c'est a dire dans le cas de figure ou les question sont posées

logiquement si la question n'est pas posée, le script va planter car le bouton, n'est pas présent

du coup avec un on error resume next bien placé, on passe outre et ca marche

Code :

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

1
2
3
4
5
On Error Resume Next   'utile pour tuer une session SAP ouverte dans sur un autre PC
session.findById("wnd[1]/usr/radMULTI_LOGON_OPT1").Select
session.findById("wnd[1]/usr/radMULTI_LOGON_OPT1").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press

[parmi]

Bonjour,

Désolé, mais je n'ouvre pas les fichiers joints avec macros...
Pour fermer des fenêtres de message qui apparaissent de temps à autre, je mets ceci à l'endroit où elle pourrait apparaître.

Code :

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

1
2
3
    If Session.ActiveWindow.Text = "Le texte d'entête de la fenêtre" Then
        Session.ActiveWindow.Close
    End If

[Filou78C]

Bonjour,

Désolé, mais je n'ouvre pas les fichiers joints avec macros...
Pour fermer des fenêtres de message qui apparaissent de temps à autre, je mets ceci à l'endroit où elle pourrait apparaître.

Code :

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

1
2
3
    If Session.ActiveWindow.Text = "Le texte d'entête de la fenêtre" Then
        Session.ActiveWindow.Close
    End If

OK Merci je vais essayer ça aussi

[Filou78C]

Bonjour
j'ai aussi eu ce problème lorsque dans une transaction on a une question qui est posée mais pas toujours

ex:
-lors d'une connection j'ai parfois la question, voulez vous tuer la session ouverte sur un autre pc
-lors de l'ouverture d'un document, j'ai parfois la question, voulez vous l'ouvrir en FR ou EN


la solution que j'ai trouvée et qui semble fonctionner dans mes 2 cas c'est celle ci

on fait le script avec la version "longue" c'est a dire dans le cas de figure ou les question sont posées

logiquement si la question n'est pas posée, le script va planter car le bouton, n'est pas présent

du coup avec un on error resume next bien placé, on passe outre et ca marche

Code :

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

1
2
3
4
5
On Error Resume Next   'utile pour tuer une session SAP ouverte dans sur un autre PC
session.findById("wnd[1]/usr/radMULTI_LOGON_OPT1").Select
session.findById("wnd[1]/usr/radMULTI_LOGON_OPT1").SetFocus
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/tbar[0]/btn[0]").press

Impeccable cela marche parfaitement !!!
Voici mon nouveau :

Code :

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

1
2
3
4
'Si pas d'extraction, message d'erreur
On Error Resume Next  
MsgBox "Pas d'Idoc pour cette journée"
Exit Sub

MERCI BEAUCOUP !!!!

[daniel-12]

Ce n'est peut être pas ce qu'aurait fait un programmeur, mais ça marche