Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2827 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Gestion des erreurs

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Gestion des erreurs

n°1653458
skoizer
tripoux et tête de veau
Posté le 05-12-2007 à 18:03:41  profilanswer
 

bonjour,
 
J'ai trouvé comment ne pas arreter un script lors d'une erreur avec ça :  
On Error resume next
 
Le souci c'est que cela me continu quand même le script et je ne voudrais pas.
est il possible de recuperer les erreur dans un sub et d'ecrire dans un fichier les erreurs survenu.
par exemple
on error recuperror()
sub recuperror()
Set objFile = objFSO.OpenTextFile(strPathtoTextFile & "erreur.txt", ForAppending,true)
      objFile.WriteLine(err.description)
 
end sub
 
 
Une idée
 
Merci

mood
Publicité
Posté le 05-12-2007 à 18:03:41  profilanswer
 

n°1653656
tegu
Posté le 06-12-2007 à 11:03:34  profilanswer
 

La gestion d'erreurs se fait comme suit, par exemple :

Sub Bidule()
On Error Goto labelDeLigne
...
<instruction qui plante avec une erreur 1111>
<instruction suivante>
...
Exit Sub   ' pour ne pas passer dans la gestion d'erreur quand il n'y en a pas

 

labelDeLigne:
   Select Case Err.Number
   Case 1111
      Resume Next    
      ' renvoie à la ligne de code <instruction suivante> pour poursuivre l'exécution du code
   Case 11
      MsgBox "Une division par zéro est survenue dans l'une de vos formules"    
      ' on sort de la procédure par le End Sub
   Case Else
      MsgBox Err.Description              
      ' on sort de la procédure par le End Sub
   End Select
End Sub


Message édité par tegu le 06-12-2007 à 11:03:55
n°1659398
skoizer
tripoux et tête de veau
Posté le 17-12-2007 à 15:19:33  profilanswer
 

oui mais ceci c'est pour du VB et pas pour du Vb car quand je met  
 
 
On Error Goto labelDeLigne
 
rem test si la listes des ordinateurs existent
 
If not objFSO.FileExists("ListeOrdi.txt" ) Then
 WScript.Echo "Fichier ListeOrdi.txt pas présent pour continuer à executer le script"
 Wscript.quit  
end if
labelDeLigne:
   Select Case Err.Number
   Case 1111
      Resume Next    
      ' renvoie à la ligne de code <instruction suivante> pour poursuivre l'exécution du code
   Case 11
      MsgBox "Une division par zéro est survenue dans l'une de vos formules"    
      ' on sort de la procédure par le End Sub
   Case Else
      MsgBox Err.Description              
      ' on sort de la procédure par le End Sub
   End Select
End Sub
 
il me sort une erreur sur ligne 2 cad On Error Goto labelDeLigne


---------------
je veux tout, tout de suite, et gratuitement ! miladiou !
n°1659402
skoizer
tripoux et tête de veau
Posté le 17-12-2007 à 15:22:36  profilanswer
 

j'aimerai définir une commande a executer quand il y a une erreur dans l'ensemble du script et pas dans un sub.


---------------
je veux tout, tout de suite, et gratuitement ! miladiou !
n°1659403
FlorentG
Unité de Masse
Posté le 17-12-2007 à 15:23:04  profilanswer
 

skoizer a écrit :

J'ai trouvé comment ne pas arreter un script lors d'une erreur avec ça :  
On Error resume next
 
Le souci c'est que cela me continu quand même le script


Captain Obvious, to the rescue !
 
On Error Resume Next, traduit en français, veut dire "Si Erreur, Continue ligne suivante", donc c'est logique... Sinon le truc de tegu devrait fonctionner, quelque soit la version de VB, c'est la design pattern standard pour la gestion d'erreurs....


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Gestion des erreurs

 

Sujets relatifs
[C-DBUS] gestion des erreursrétablir la gestion des erreurs par défaut dans access
Gestion d'erreurs mysqlGestion d'erreurs
Probleme avec gestion des erreurs en vbscriptComment faire une gestion avancée d'erreurs de saisies
Gestion d'erreurs en VBSCRIPTTerminer l'exécution d'une page au milieu / gestion d'erreurs
[RESOLU]Gestion des erreurs dans VBGestion des erreurs - petite question
Plus de sujets relatifs à : Gestion des erreurs


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR