Airone784
XLDnaute Occasionnel
Bonjour,
Dans le cadre professionnel, je me lance dans la création de macro associée à un outil de gestion sur AS400 (voir capture 1). Pour se faire, j'utilise un langage de communication entre IBM et microsoft excel mais je n'ai trouvé que très peu d'infos sur ce langage. Voici ma seule source que j'ai trouvé : IBM Knowledge Center
J'ai réussi à faire quelque petite chose avec ce fichier comme copier-coller des données de ma session AS400 dans un tableur Excel via une macro.
Avec ma macro sur excel par exemple je lance des combinaisons de touche qui viennent se faire dans ma session AS400.
Exemple de macro :
Dans l'exemple ce code me permet de simuler l'appui sur la touche F8 de mon clavier.
Maintenant, dans ma session AS400, je choisis une option qui n'existe pas (sur ma session j'ai un message en bas à gauche rouge qui s'affiche voir capture 2). Lorsque j'ai un message d'erreur, pour l'enlever sur ma session AS400, je dois appuyer sur la touche ctrl de mon clavier.
Retournons sur excel voici l'exemple de code que j'aimerais utiliser :
[reset] correspond à la touche ctrl dans le langage IBM.
Dans mon exemple le problème c'est que je ne sais pas comment faire contrôler à mon code vba excel s'il y a un message d'erreur sur ma session.
Bref, je suis à la recherche de quelqu'un qui connait ce langage et qui pourrait m'aider ou m'aiguiller vers des sources pour mieux appréhender ce langage.
Merci d'avance pour votre aide en espérant que mes explications soient claires.
Dans le cadre professionnel, je me lance dans la création de macro associée à un outil de gestion sur AS400 (voir capture 1). Pour se faire, j'utilise un langage de communication entre IBM et microsoft excel mais je n'ai trouvé que très peu d'infos sur ce langage. Voici ma seule source que j'ai trouvé : IBM Knowledge Center
J'ai réussi à faire quelque petite chose avec ce fichier comme copier-coller des données de ma session AS400 dans un tableur Excel via une macro.
Avec ma macro sur excel par exemple je lance des combinaisons de touche qui viennent se faire dans ma session AS400.
Exemple de macro :
Code:
Dim Connlist As Object
Dim Session As Object
Set Connlist = CreateObject("PCOMM.autECLConnList")
Set capEcran = CreateObject("PCOMM.autECLPS")
Set Session = CreateObject("PCOMM.autECLSession")
capEcran.SetConnectionByHandle (Connlist(1).Handle)
Session.SetConnectionByHandle (Connlist(1).Handle)
Session.autECLPS.SendKeys "[pf8]"
Dans l'exemple ce code me permet de simuler l'appui sur la touche F8 de mon clavier.
Maintenant, dans ma session AS400, je choisis une option qui n'existe pas (sur ma session j'ai un message en bas à gauche rouge qui s'affiche voir capture 2). Lorsque j'ai un message d'erreur, pour l'enlever sur ma session AS400, je dois appuyer sur la touche ctrl de mon clavier.
Retournons sur excel voici l'exemple de code que j'aimerais utiliser :
Code:
Dim Connlist As Object
Dim Session As Object
Set Connlist = CreateObject("PCOMM.autECLConnList")
Set capEcran = CreateObject("PCOMM.autECLPS")
Set Session = CreateObject("PCOMM.autECLSession")
capEcran.SetConnectionByHandle (Connlist(1).Handle)
Session.SetConnectionByHandle (Connlist(1).Handle)
if message d'erreur sur ma session AS400 then
Session.autECLPS.SendKeys "[reset]"
else
Session.autECLPS.SendKeys "[pf8]"
end if
[reset] correspond à la touche ctrl dans le langage IBM.
Dans mon exemple le problème c'est que je ne sais pas comment faire contrôler à mon code vba excel s'il y a un message d'erreur sur ma session.
Bref, je suis à la recherche de quelqu'un qui connait ce langage et qui pourrait m'aider ou m'aiguiller vers des sources pour mieux appréhender ce langage.
Merci d'avance pour votre aide en espérant que mes explications soient claires.