Discussion :

[fazpedro]

Bonjour,

Je souhaite copier une zone d'un écran PCOMM Vers Excel en tant qu'image
Le code ci-dessous ne copie et colle rien !
Merci de votre aide

Code :

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

1
2
3
4
5
6
7
Public autECLSession As AutSessTypeLibrary.AutSess
Set autECLSession = New AutSessTypeLibrary.AutSess
autECLSession.SetConnectionByName ("A") 'correspond à l'émulation 3270 A
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "(%{1068})"
autECLSession.autECLOIA.WaitForInputReady
Range("A2").Paste

[fazpedro]

Up
Des idées ?
Merci

[fazpedro]

Up
Des idées ou conseils ?
Merci d'avance

[m4k-Hurrican]

Bonjour,

A priori, personne n'a d'idée à ce sujet.
Mais de mon point de vue :
1) je ne vois pas comment ton script pointe sur Excel (ni même une ligne qui l'ouvre)
2) la dernière ligne indique un Paste mais je ne sais pas sur quel objet le collé se fait...

De toute manière, je pense qu'il vaut mieux enregistrer une macro et l'associer au script, ce sera plus simple.
Reste à trouver une méthode pour être certain d'ouvrir Excel, et pas une autre application

[mach1974]

Bonjour,
J'espère que vous vous allez bien.
le code sert uniquement à faire du Contrôle c
Derrière
il manque un workbook.open
worksheet.select
application.wait
application.sendkeys ("C+V") (il faut reprendre les valeurs dans l'aide)
Cordialement

[fazpedro]

Bonjour
Je suis déjà dans mon classeur Excel

le code ci-dessous ne génère aucune action :

Code :

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

application.sendkeys ("C+V")