Discussion :

[iris15]

Bonjour,
jai travail sur du vb6 avec microsoft visual studio et j'ai un gros probleme.
Mon application permet de taper des macros dans le logiciel quick3270 (sorte de terminal). Quand quick3270 est déja lancé je recupere l'application avec un :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Quick3270 As Object
Dim Session   As ISession
Dim Screen    As IScreen


If Quick3270 Is Nothing Then ' Connexion à une session existante.
   Set Quick3270 = GetObject("", "Quick3270.Application")
End If
Quick3270.Visible = True
Quick3270.SetFocus

puis j'utilise les objets de quick3270 permettant la simulation d'appui sur les touches :

Code :

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

1
2
3
4
Set Session = Quick3270.ActiveSession
Set Screen = Session.Screen
 
Screen.SendKeys ("<ENTER>")

A la fin de mon code je libere les objets utilisés:

Code :

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

1
2
3
Set Session = Nothing
Set Screen = Nothing
Set Quick3270 = Nothing

Probleme la premiere fois que j'execute mon code tout marche nikel : il récupere bien mon application Quick3270 que j'avais lancée auparavant et me simule l'appui sur les touches et revient sur le menu principal.
Lorsque je ré-execute il ne récupere pas mon application qui pourtant elle est belle et bien lancée. En regardant au debugger il apparait qu'il me lance une nouvelle session de quick3270 et ne me prend pas celle en cours et donc est incapable de simuler correctement les touches.


une idée ?

merci

[Vld44]

bizarre, je ne connais pas quick3093123 mais essaye de mettre ce code :

Code :

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

1
2
3
If Quick3270 Is Nothing Then ' Connexion à une session existante.
   Set Quick3270 = GetObject("", "Quick3270.Application")
End If

au niveau module, c'est à dire de faire en sorte que lorsque tu réexécute le bout de code que tu nous as copié collé tu te reserves de "Quick3270" sans avoir besoin de le réinstancier par "getobject"

On ne sait jamais ...

[iris15]

en comparant avec un autre code j'ai trouvé l'origine:

il ne faut pas mettre de guillemet pour le premier argument de getobject meme vide !!

Code :

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

1
2
3
If Quick3270 Is Nothing Then ' Connexion à une session existante.
   Set Quick3270 = GetObject(, "Quick3270.Application")
End If

Merci quand emem vlad :-)

[EvaristeGaloisBis]

Bonjour,

J'ai le même logiciel 3270, et j'ai vu qu'il y avait un lien entre le logiciel et Excel, seulement je n'arrive pas du tout a le faire fonctionner ni a comprendre le fonctionnement.
A tout hasard, j'ai voulu tester le morceau de code. Or comme toujours il m'indique une erreur : "un composantActiveX ne peut pas créer d'objet".

Je ne sais psa comment faire pour le passer sur Excel.

Auriez vous des idées et de la documentation sur ce point ?