Discussion :

[KKshi666]

Bonjour à tous.

Tout est dans le titre, je ne comprends absolument pas l'interet de cette instruction qui, si j'ai tout bien compris, permet de désactiver la gestion des erreurs, et de permettre à ces dernières, de se manifester.

Merci d'éclairer ma lanterne.

A+ !

[alsimbad]

si tu ne met pas de gestion d'erreur, ton code s'arrete, et te propose
fin, débuger, aide. si c'est un utilisateur lambda qui utilise ton code, il peut a ce moment la écrire une C... dans ta macro.
si tu met on error.resume next
le code ne s'arrete pas et passe a l'instruction suivante
mais tu ne sais pas qu'il y a eu erreur, et tu ne sais pas laquelle
si en cas d'erreur, tu l'envoie sur ligne 0 et que la il envoie par exemple un message avec le code d'erreur, puis sort de la sub. toi tu sais ou tu en es, et l'utilisateur n'a pas eu acces a ton code
ce n'est qu'une utilisation possible, moi, je ne m'en sert jamais, mais ceusse qui sont un peu plus pointus trouvent ça tres utile

[wilfried_42]

Bonjour KKShi666

Quand on choisit de faire un traitement d'erreur c'est parceque l'on sait qu'il est susceptible d'y avoir une erreur et que l'on veut la traiter

un exemple : je fais une procedure de auvegarde pour mon fichier et je veux que les sauvegardes se fasse dans une repertoire different selon le mois.

Le repertoire nexiste pas forcement, donc il faut le créer, par
MKDIR "C:\save\mois" & mois
je sais qu'à la premiere utilisation mo programme va fonctionner mais au suivante il va planter car il essaye de creer un repertoire qui existe deja
donc je vais traiter l'erreur
On Error Resume Next ' Continue la macro meme s'il y a une erreur
MKDIR "C:\save\mois" & mois

Mais cela presente un autre probleme, à chaque fois que la macro va provoquer une erreur, le resume next va s'effectuer et je ne verrai meme plus mes fautes de frappe, dnc je vais rendre le controle des erreurs à excel avec On Error GoTo 0

ce qui donne
On Error Resume Next ' Continue la macro meme s'il y a une erreur
MKDIR "C:\save\mois" & mois
On Error GoTo 0

Déja faire un traitement d'erreur est delicat, il faut savoir pourquoi on le fait, mais ne pas rendre le controle à Ecel ensuite devient tout simplement suicidaire.

Bonne Journée

[mout1234]

Bonjour,

Voici un exemple d'utilisation de cette instruction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Function f1()
On Error GoTo Err_Handle
 
    Debug.Print f2(10, 0)
 
End_Handle:
    exit function
Err_Handle:
    MsgBox err.Description
    Resume End_Handle
End Function

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
16
Function f2(a As Integer, b As Integer)
Dim c As Integer
 
   'début du code. Pas de Gestion d'ereur. Les erreurs sont renvoyées à l'appelant
    c = 10/ 0  'ligne à mettre en commentaire pour tester la suite
 
   'ici dont on veut ignorer l'erreur
     On Error Resume Next
     c = 5 / 0
 
On Error GoTo 0
    'ici un code pour lequel on veut que les erreurs provoquent
    'une sortie de la fonction et une gestion par la fonction appelante
    f2 = a / b
 
End Function

Comme on a utilisé un On error Resume next, le On Error goto 0 ici permet de retrouver le comportement sans gestion d'erreur et donc ici de renvoyer l'erreur à la fonction f1.

[KKshi666]

Ok merci à tous, c'est extrêmement clair.
Résolu donc.