[R] Traitements des erreurs Excel dans Auto IT

[ltrautoit]

Bonjour,

Malgré des recherches intensives, je n'ai rien trouvé de probant pour mon problème.
J'imagine qu'il s'agit d'un problème maintes fois évoqués, mais je n'ai rien trouvé ...

Ce que je souhaite faire :
Je souhaite lire avec auto-it les commentaires présents au niveau d'une cellule d'une feuille excel.
J'utilise l'UDF ExcelCOM_UDF.au3 (et plus précisément la fonction _ExcelCommentRead)

Mon problème : Le script "crash" avec une erreur critique s'il n'y a pas de commentaires sur la cellule excel lue.
(Pas d'erreur s'il y a un commentaire dans la cellule)

Quelqu'un aurait-il une piste ou une solution ? (Je prend tout ce qui peut m'orienter sur la bonne voie)

ps : ObjEvent me plaisait bien, mais je n'arrive à rien.

Merci bien.

[PandiPanda]

Bonjour,
ceci ne vous conviendrai pas ? ^^

► Afficher le texte

Code : Tout sélectionner

#include-once
#include <ExcelCOM_UDF.au3>
Local $oErr = ObjEvent("AutoIt.Error", "_ErrFunc")

Global $oExcel = _ExcelBookNew()
_ExcelCommentRead($oExcel,1,1)
MsgBox(0,"","still there")

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
    ; Do anything here.
    _ExcelBookClose($oExcel,0,0)
    ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF & _
            "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            "err.description is: " & @TAB & $oError.description & @CRLF & _
            "err.source is: " & @TAB & $oError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            "err.retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
EndFunc   ;==>_ErrFunc

[ltrautoit]

Personnellement, ca me va bien

Mais le script me retourne désormais cette erreur : Error : Variable must be of type "Object". (avec le marqueur d'erreur au dessous du "." de erroError.number) (donc, ca semble fonctionner partiellement, puisqu'il va bien dans la fonction _ErrFunc)

Voici ce que le code que j'utilise :

► Afficher le texte

Func _ExcelCommentRead($oExcel, $sRangeOrRow, $iColumn = 1)
Local $oErr = ObjEvent("AutoIt.Error", "_ErrFunc")
    If NOT IsObj($oExcel) Then Return SetError(1, 0, 0)
    If NOT StringRegExp($sRangeOrRow, "[A-Z,a-z]", 0) Then
        Return $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Comment.Text
    else
        Return $oExcel.Activesheet.Range($sRangeOrRow).Comment.Text
    EndIf
EndFunc ;==>_ExcelCommentRead
Func _ErrFunc($oError)
    ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF )
EndFunc

 

[ltrautoit]

Je viens de faire un essai avec :

Code : Tout sélectionner

Func _ErrFunc($oError)
    $VarRetour= MsgBox (4096, "Erreur", "oError : " & $oError) 
    ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF )
EndFunc  

Et j'ai la boite message suivante : "oError : 0"
(Je suis perdu, car cela ne correspond pas à un code d'erreur connu de ObjEvent [qui génère l'erreur])

[PandiPanda]

J'ai personnellement aucun problème ...

► Afficher le texte

Code : Tout sélectionner

#include-once
#include <ExcelCOM_UDF.au3>

Local $oExcel = _ExcelBookNew()
test1($oExcel,"TEST 1")
test1($oExcel,"TEST 2")

Func test1($obj,$str)
    If (_ExcelCommentAdd($obj,$str,1,1)) Then
        MsgBox(0,"",_ExcelCommentRead($obj,1,1))
        _ExcelCommentDelete($obj,1)
        _ExcelCommentRead($obj,1,1) ; ici on va generé l'erreur.
    EndIf
EndFunc

► Afficher le texte

Code : Tout sélectionner

Func _ExcelCommentRead($oExcel, $sRangeOrRow, $iColumn = 1)
    Local $oErr = ObjEvent("AutoIt.Error", "_ErrFunc")
    If NOT IsObj($oExcel) Then Return SetError(1, 0, 0)
    If NOT StringRegExp($sRangeOrRow, "[A-Z,a-z]", 0) Then
        Return $oExcel.Cells($sRangeOrRow, $iColumn).Comment.Text
    Else
        Return $oExcel.Range($sRangeOrRow).Comment.Text
    EndIf
EndFunc ;==>_ExcelCommentRead

Func _ErrFunc($oError)
    $VarRetour= MsgBox (4096, "Erreur", "oError : " & $oError)
    ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF )
EndFunc

[ltrautoit]

Je voudrais savoir, quel message avez-vous en réponse de : MsgBox (4096, "Erreur", "oError : " & $oError) ?

[PandiPanda]

J'ai "rien" ^^

[mikell]

MsgBox (4096, "Erreur", "oError : " & $oError)

Heu...tu veux afficher un objet dans une msgbox ?

[ltrautoit]

@mikell : Ca semble marcher ...

[ltrautoit]

Après avoir beacoup farfouillé et essayé un peu tout et n'importe quoi, je me rend compte que c'est sans doute moi qui ne comprenais pas bien, car j'ai réussi à faire fonctionner l'exemple même de l'aide auto it pour ObjEvent.

Rappel : Je voulais lire les commentaires d'une cellule excel, mais il y a une erreur critique (faisant "crasher" le script) s'il n'y a pas de commentaire au niveau de la cellule.

J'ai réussi à trouver une solution qui me satisfasse avec ca :

► Afficher le texte

Code : Tout sélectionner

Func _ExcelCommentRead($oExcel, $sRangeOrRow, $iColumn = 1)
Global $oErr = ObjEvent("AutoIt.Error", "_ErrFunc")
    If NOT IsObj($oExcel) Then Return SetError(1, 0, 0)
    If NOT StringRegExp($sRangeOrRow, "[A-Z,a-z]", 0) Then
        Return $oExcel.Activesheet.Cells($sRangeOrRow, $iColumn).Comment.Text
    else
        Return $oExcel.Activesheet.Range($sRangeOrRow).Comment.Text
    EndIf
EndFunc ;==>_ExcelCommentRead

Func _ErrFunc($oError)
$oErr.stop ; Dit que nous voulons arrèter de recevoir des événements
$oErr=0
EndFunc  

Je ne suis pas sur que cette solution soit utilisable par tout le monde, car elle utilise les canaux COM (dépendant du matériel et des logiciels)

Merci aux personnes qui se sont penchées sur mon problème.