Page 1 sur 1
[R] Traitements des erreurs Excel dans Auto IT
Posté : mer. 09 oct. 2013 16:39
par 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.
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 09:39
par 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
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 10:55
par 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
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 11:06
par 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])
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 13:01
par 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
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 14:04
par ltrautoit
Je voudrais savoir, quel message avez-vous en réponse de : MsgBox (4096, "Erreur", "oError : " & $oError) ?
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 15:05
par PandiPanda
J'ai "rien" ^^
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : jeu. 10 oct. 2013 17:59
par mikell
ltrautoit a écrit :MsgBox (4096, "Erreur", "oError : " & $oError)
Heu...tu veux afficher un objet dans une msgbox ?
Re: [..] Traitements des erreurs Excel dans Auto IT
Posté : ven. 11 oct. 2013 11:42
par ltrautoit
@mikell : Ca semble marcher ...
Re: [R] Traitements des erreurs Excel dans Auto IT
Posté : ven. 11 oct. 2013 13:16
par 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.