On error goto

ninou58 · 12 Avril 2006

Re bonjour,
Petit souci, est-il possible avec un on error goto de stopper tout simplement la macro.
erreur:
Exit sub
mais ca arrête seulement ce module alors que moi je veux que ca arrête complètement de tourner.

Est ce possible?

Merci d'avance

ninou58 · 12 Avril 2006

Re,Bonjour Hervé
ah bah Thierry, j'avais pas du tout compris ça moi!
Moi je pensais que c'étai un nouveau module, et que ça irait dedans en cas d'erreur.
Bref ca revient un peu au reste non? Hormis que cela ne met le pourquoi?
Et en faite tout a l'heure ça a planté, et on pouvait aller dans debugage

Bon bah du coup, je vais laissé comme j'ai fait, c a dire comme tout a l'heure.

non ce n'est pas grave Hervé,c'est toujours instructif

La question que tu poses c'est ce que j'allais faire :unsure: .

Et oui encore au travail mais plus que 15 min..
Bonne fin de journée

ninou58 · 12 Avril 2006

C'est re moi,
Petite question, je repère le on error goto requete plusieurs fois, normal? ou je dois faire autre chose?
En faite c'est au ca soù la requête ne fonctionne pas, faut pas que je laisse dans l'embarras

Sub requeteweek()
'requête qui permet de récupérer les informations pour le week end
choix = 0
On Error GoTo requete
v_feuille = 'Interm'
v_strsql = blabla

Exit Sub
requete:
MsgBox 'Erreur dans les paramètres, veuillez recommencer,cliquez sur le bouton menu', vbCritical
Call CacherFeuille('Recup')
End

End Sub

Sub requetedetache()
On Error GoTo requete

'requête récupérant les détachés
v_feuille = 'Interm1'
v_strsql = 'blabla

Exit Sub
requete:
MsgBox 'Erreur dans les paramètres, veuillez recommencer,cliquez sur le bouton menu', vbCritical
Call CacherFeuille('Recup')
End
End Sub

Merci d'avance

Jam · 12 Avril 2006

Salut Hervé, _Thierry et tous les autres,

Pour répondre à ta question Hervé, je sais que c'est possible...je l'ai déjà fait...mais il y a fort longtemps dans une galaxie lointaine...ooops, m'égare :whistle:

J'vais essayer de retrouver cela.

Ah, euh, d'ailleurs j'mettrais bien cela dans un module de class d'ailleurs...

A+

PascalXLD · 12 Avril 2006

Re

C'est normal vu que tu as plusieurs procédures.

Ensuite il faudrait voir tout le code et peut-être qu'une seule procedure etait nécessaire en lui passant des paramètres mais là on aurait changé beaucoup de choses.

Donc dans ton cas c'est normal

PascalXLD · 12 Avril 2006

Re

Hervé j'aurais bien vu un truc comme cela

'DEBUT DE MACRO
On Error GoTo ErrorHandler

'FIN DE MACRO
ErrorHandler:
appelmacrodansmodulespecifique (Err.Number)

End Sub

Sub appelmacrodansmodulespecifique(MonErreur)

Select Case MonErreur
Case 6
MsgBox 'Déclaration Byte y a pas bon ' & Err.Description
Case 9
MsgBox 'La feuille y a pas bon ' & Err.Description
Case 1004
MsgBox 'Le chemin y a pas bon ' & Err.Description
Case Else
MsgBox 'Une erreur non gérée s'est produite, téléphoner à Thierry !! lol' & _
vbCrLf & Err.Number & ' ' & Err.Description
End Select

End Sub

Message édité par: Pascal76, à: 12/04/2006 17:44

Hervé · 12 Avril 2006

re tout le monde

oui pascal, c'est bien comme ca que je l'aurais vu aussi, par contre, comment retourner à l'erreur dans le cadre d'une boucle, ce code là ne fonctionne pas :

Sub Bouton1_QuandClic()
Dim el, tablo
'DEBUT DE MACRO
On Error GoTo ErrorHandler
For Each el In tablo
MsgBox el
Next el

'FIN DE MACRO
ErrorHandler:
appelmacrodansmodulespecifique (Err.Number)

End Sub

Sub appelmacrodansmodulespecifique(MonErreur)

Select Case MonErreur
Case 13
MsgBox 'y'a pas bon mon gars ' & Err.Description
End Select
Resume
End Sub

je sais que je chinoise, mais bon si je ne vous pousse pas d'un vos retranchements, on va plus progressé

salut

Jam · 12 Avril 2006

Re à tous,

Tu y était presque, essaye avec:

Code:

Sub MaMacro()
Dim ActionQuanddErreur As Long
...
ErrorHandler:
ActionQuandErreur=GestionErreur(Err)
Select Case ActionQuandErreur
  Case 1
    Resume
  Case 2
    Resume Next
  ...
End Select
End Sub

Function GestionErreur(iErrNum) As Long
    Select Case iErrNum
       Case Erreur_n°1
          ...
          GestionErreur=1
       Case Erreur_n°2
          ...
          GestionErreur=2
       End Select
End Function

Ca devrait marcher B)

Message édité par: jam, à: 12/04/2006 18:35

ninou58 · 13 Avril 2006

Bonjour tout le monde,
Alors je vois qu'on se motive sur ce on error goto!

Pour ma part j'en ai mis dans chaque macro, avec on error goto erreur au début
et tout a la fin

erreur:
end

J'ai fais ca pour la plupart, après je mettrai un message mais bon.
En tout cas, je sais^pas si ca peut marché dans un module, et la j'y comprend pas grand chose avec le err.number.

Sur ce merci
Bonne journée
:silly:

Hervé · 13 Avril 2006

bonjour tout le monde

merci jam, je vais explorer cette piste.

salut

_Thierry · 13 Avril 2006

Bonjour à tous,

Sorry hier j'ai du partir et n'avait pas vu qu'il y avait une suite à cette 'affaire'.

Je pense que Jam t'a bien répondu déjà. Il me semble avoir vu passer un jour un travail du grand chef à trois plumes (L.L.) avec une magistrale gestion d'erreur, à moins que ce ne soit son acolyte F.S....

Si je retrouve, je posterai un exemple...

Bon appétit
[ol]@+Thierry[/ol]

PS Hervé, félicitation pour les 3000

On error goto

ninou58

XLDnaute Occasionnel

ninou58

XLDnaute Occasionnel

ninou58

XLDnaute Occasionnel

Jam

XLDnaute Accro

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Hervé

XLDnaute Barbatruc

Jam

XLDnaute Accro

ninou58

XLDnaute Occasionnel

Hervé

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

Discussions similaires