Discussion :

[loup_precaire]

salut à tous,

j'ai un chtit pb que je n'arrive pas à réglé et j'ai beau chercher sur le net je ne trouve pas pourquoi ça marche pas.
J'essai simplement de remonter une erreur de la façon suivante :
j'ai 2 modules de classe classe1 et classe2 et je fais :

dans la classe1, j'ai une fonction :

Code :

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

1
2
3
4
5
6
7
8
 sub a()
  on error goto Erreur
  set cl2 = new classe2
  call classe2.b()
 
Erreur:
  msgBox("coucou A")
end sub

et dans la classe2, il y a 2 fonctions : b et c :

Code :

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

1
2
3
4
5
6
7
8
 sub b()
  on error goto Erreur
  call c()
 
Erreur:
  msgBox("coucou B")
  err.raise err.number,err.source,err.description
end sub

et

Code :

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

1
2
3
 sub c()
  a=1/0
end sub

l'erreur de c() est récupérée dans b() et donc affiche "coucou B", j'essai alors de regénérer la meme erreur de façon à ce que a() la récupère et puisse utiliser err.number, seulement, sur le err.raise de b(), l'erreur s'affiche dans une boite de débug (style plantage) et a() ne la récupère pas.
Est-ce que le pb vient du fait qu'il s'agit 2 classes différente? pourtant la msdn dit que err a une portée globale donc devrait etre accessible partout.

et si je ne lève pas l'exception dans b(), au débug, le code revient dans a() mais err ne vaut rien si je la regarde dans l'espion.

est-ce que quelqu'un saurait comment je peux récupérer l'erreur de c() dans a()?

merci de vos réponses et désolé, je ne suis pas un expert VB

[Delbeke]

Heu, quoique tu fasses, tes sub sortent tjs un message

Essaye çà

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
sub a()
  on error goto Erreur
  set cl2 = new classe2
  call classe2.b()
 
  exit Sub
 
 
Erreur:
  msgBox("coucou A")
end sub

[loup_precaire]

oui mais non en fait, j'ai mis des msgbox pour expliquer ce qui se passait mais dans mon code (que j'ai pas mis car bcp plus compliqué), je cherche justement à ne gérer les erreurs que dans la classe1 de façon à pouvoir utiliser des méthodes de la classe1 pour gérer ces erreurs et de façon à rendre indépendant la classe2, j'aimerai ensuite pouvoir reprendre la classe2 dans une autre appli qui aura sa propre façon de traiter les erreurs

[loup_precaire]

personne ne peut m'expliquer le principe de ces err? et pourquoi ça marche pas dans ce cas?

[loup_precaire]

c bon, j'ai trouvé, en fait, il faut aller dans outils->option : onglet general et cocher "arret sur les erreurs non gérés"
ça marchait pas car il était sur "arret sur les erreurs du module" et donc ne remontait pas l'erreur en dehors du module

[Delbeke]

Bon, j'ai fait tourner ton code et apres quelques correction il marche parfaitement
Soit un projet avec un bouton de commande dans une feille, plus deux classes, Class1 et Class2

Dans Form1

Code :

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

1
2
3
4
5
6
7
8
 
Option Explicit
 
Private Sub Command1_Click()
  Dim Test As Class1
  Set Test = New Class1
  Test.A
End Sub

Dans Class1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
 
Sub A()
  Dim Cl2 As Class2
  On Error GoTo Erreur
  Set Cl2 = New Class2
  Call Cl2.b
  Exit Sub
Erreur:
  MsgBox ("coucou A")
End Sub

Dans Class2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Explicit
 
 Sub b()
  On Error GoTo Erreur
  Call c
  Exit Sub
Erreur:
  MsgBox ("coucou B")
  Err.Raise Err.Number, Err.Source, Err.Description
End Sub
 Sub c()
  Dim A As Double
  A = 1 / 0
End Sub

Ensuite tu vas dans les Options de VB (dans les menus de la barre d'outils en haut, Outils/Options) dans l'onglet Général , modifie l'option de récupération des erreurs . tu prens "Arret surt toutes les erreurs non gérées"

Ces trois options ne concernent que l'environnement de développement et n'influent pas sur l'exe obtenu.