Passer de WRQ reflection à Excel et revenir à WRQ Reflection
cs_kouki69
Messages postés95Date d'inscriptionlundi 27 mars 2006StatutMembreDernière intervention28 août 2015
-
27 août 2009 à 15:10
cs_kouki69
Messages postés95Date d'inscriptionlundi 27 mars 2006StatutMembreDernière intervention28 août 2015
-
27 août 2009 à 17:44
Bonjour,
Voilà, grâce à l'aide de Renfield, j'ai pu avancé dans mon code et passer de Reflection à Excel.
Le problème que j'ai maintenant c'est revenir à WRQ Reflection sans quitter excel car j'ai besoin d'y retourner par la suite.
Le début du code est ci-dessous :
Dim oBook As Object
Dim oReflection As Object
Set oExcel = GetObject(, "Excel.Application")
oExcel.Visible = True
Set oBook = oExcel.Workbooks.Open(fileName:="c:\ fichier.xls")
Ce que je pense faire pour revenir à WRQ reflection est décrit ci-dessous, mais il semble que Reflexion.application ne lui dit trop rien...qu'est ce que je dois lui mettre ??
Set oReflection = GetObject(, "Reflection.Application")
Merci
A voir également:
Passer de WRQ reflection à Excel et revenir à WRQ Reflection
cs_kouki69
Messages postés95Date d'inscriptionlundi 27 mars 2006StatutMembreDernière intervention28 août 2015 27 août 2009 à 17:44
Tu as raison, le souci n'est pas là puisque finalement, j'arrive bien à revenir sur Reflection, étant donné que je fais ma copie d'écran de reflection et que celà fonctionne (en rouge ci-dessous). Le pb est ailleur alors, car à partir de line1, il bloque ... ???
On Local Error Resume Next
Dim oExcel As Object
Dim oBook As Object
Dim oReflection As Object
Dim sFileName As String
Dim sFilePath As String
Dim i, j, a As String
Dim message As String
With Session
.WaitForEvent rcEnterPos, "30", "0", 20, 20
.WaitForDisplayString "RESPONSE:", "30", 20, 10
.TransmitANSI "SC"
sFileName = Trim$(.GetDisplayText(4, 11, 19))
End With
Set oExcel = GetObject(, "Excel.Application")
If Nothing Is oExcel Then
Set oExcel = CreateObject("Excel.Application")
End If
On Local Error GoTo 0
oExcel.Visible = True
Set oBook = oExcel.Workbooks.Open(fileName:="c:\suivi fichier.xls")