Discussion :

[xingjing910]

Bonjour tout le monde,

Commd d'habitude, quand il y a des message d'erreur un peu compliqué, je ne sais pas c'est quoi. Et que je trouve toujours la réponse ici ... Merci à vous !!

Voici la version complète

L'appel a été rejeté par l'appelé (Exception de HRESULT:0x80010001 RPC_E_CALL_REJECTED)

Vous avez une idée ? C'est quoi HRESULT ? je suis désolée si c'est une question très bête, ma formation initiale n'est pas du tout informatique, du coup, les notions ou les mots informatiques, euh ....

Merci d'avance

[tomlev]

Quel est le code qui provoque cette erreur ?

[xingjing910]

Quel est le code qui provoque cette erreur ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
            Dim tempo As Integer = 0
            Dim Var As String
            Dim Value As Single
            Dim Para As String = "0000"
            Dim Decimale As Single
            Dim CelExcel As Integer
 
            CelExcel = InStr(SheetExcel.Cells(ExcelLigne, 5).Value.ToString, "écriture")
 
            If CelExcel > 0 And ExcelLigne < NumLigne + 1 Then

c'est la ligne

Code :

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

 CelExcel = InStr(SheetExcel.Cells(ExcelLigne, 5).Value.ToString, "écriture")

qui provoque ça. Mon programme lit tous les lignes d'un fichier Excel et au bout d'un moment, ça s'arrête. Il s'arrête de lire non pas sur la même ligne chaque fois.

Merci d'avance

[xingjing910]

Je viens de voir la même discussion dans le forum.

http://www.developpez.net/forums/d43...-na-ete-geree/

Jerome (la personne qui a créé la discussion) a ajouté

Code :

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

try catch , Thread.sleep

, j'ai vu aussi il faut mettre un tempo.

Bon, vous avez une idée ?

Merci d'avance

[xingjing910]

http://social.msdn.microsoft.com/for...-c14957d632c8/

voici le site où il y a une discussion sur ce problème aussi.

T_T, je ne comprends pas trop les mots informatiques et du coup, je ne comprends pas ...

qqn peut m'aider, please ?

Merci d'avance

[xingjing910]

Voici un paragraph que j'ai pris dans une même discussion. je n'ai pas compris, ce que je sais, c'est que dans mon programme, il y a "Event Handle". C'est que quand une message viens de micro- contrôleur, on va exécuter le programme de "Event Handle"


I don't quite sure why the event handlers are not fired. Hence I will just share some of my past experience here.

Note: I assumed you have registered the event handlers to the intended events in the correct manner.

1. Are you running the IDE in a separate thread and you invoke the event handlers in your UI Control class?

2. Is there any exception prior to the event handler invocation or during the event handler's invocation.

These questions are important.
solution:

Code :

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

1
2
3
4
5
6
7
8
9
        <Return Value> Method()
            {
                if (this.InvokeRequired)
                {
                    return (<ReturnValue>)this.Invoke(new <Some Other Delegate>(this.Method));
                }
                // Whatever it intended to do.
                ..........
             }

If the first question is "yes" and if you didn't have this control block for the thread to be parented, you might running into an exception which later on the IDE silents it.

Solution:


If the first question is no, please look at any possibility that an exception is thrown right at the beginning of event handler.

That's all.

[tomlev]

Apparemment c'est un problème de timing, il faut mettre une temporisation quand cette erreur se produit

Tu peux faire un truc comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim tryAgain As Boolean
Do
    Try
        tryAgain = False
        CelExcel = InStr(SheetExcel.Cells(ExcelLigne, 5).Value.ToString, "écriture")
    Catch ex As COMException
        If Marshal.GetHRForException(ex) = &H0x80010001 Then
            Thread.Sleep(1000) ' attendre 1 seconde avant de recommencer
            tryAgain = True
        Else
            Throw
        Enf If
    End Try
Loop While tryAgain

(à mettre à la place de l'instruction qui plante)

[xingjing910]

Merci , je vais essayer !!!