Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
You have to be much more specific...how to capture a text of extra towards Excel?
YourExcelObject.YourWorkbookObject.YourWorksheetObject.YourRangeObject.Value = YourExtraObject.YourExtraSessionObject.YourExtraScreenObject.GetString(YourScreenRow, YourScreenColumn, LengthOfString)
Sub test()
Rem ' Cette macro a été créée par l'enregistreur de macros.
' Document de session : "C:\Users\Public\applications\sessions\Icones\AAA.edp"
' Date : Tuesday, February 08, 2011 13:50:07
' Utilisateur : test
'--------------------------------------------------------------------------------
' Déclarations des variables globales
'--------------------------------------------------------------------------------
' Cherche l'objet principal du système
Dim Sessions As Object
Dim System As Object
Set System = CreateObject("EXTRA.System") ' Cherche l'objet du système
If (System Is Nothing) Then
MsgBox "Impossible de créer l'objet du système EXTRA. L'exécution de la macro est interrompue."
Stop
End If
Set Sessions = System.Sessions
If (Sessions Is Nothing) Then
MsgBox "Impossible de créer l'objet de la collection Sessions. L'exécution de la macro est interrompue."
Stop
End If
'--------------------------------------------------------------------------------
' Définir la valeur du délai d'attente par défaut
g_HostSettleTime = 300 ' millisecondes
OldSystemTimeout& = System.TimeoutValue
If (g_HostSettleTime > OldSystemTimeout) Then
System.TimeoutValue = g_HostSettleTime
End If
' Cherche l'objet nécessaire pour la session
Dim Sess0 As Object
Set Sess0 = System.ActiveSession
If (Sess0 Is Nothing) Then
MsgBox "Impossible de créer l'objet Session. L'exécution de la macro est interrompue."
Stop
End If
If Not Sess0.Visible Then Sess0.Visible = True
Sess0.Screen.WaitHostQuiet (g_HostSettleTime)