Je vous applaudis pour vouloir un traiteur commun des erreurs. Me laisser expliquer comment je les fais.
Créer une fonction globale pour votre logique commune de traiteur des erreurs. « Le point d'entrée de votre $$etAPP » peut fonctionner--Je ne sais pas--il doit être accessible de n'importe où. Appelons ce functio ErrorRoutine ().
Coder alors tous les suboutines n'importe quoi de pareil :
MySub secondaire privé ()
Sur la finition GoTo des erreurs
….
Sur le résumé d'erreur après
…
Sur la finition GoTo des erreurs
….
Finition :
Si err.number puis si ErrorRoutine (vbRetry) = vbRetry reprennent alors
…
Sortir le sous-marin
Ma version d'ErrorRoutine évalue pour le paramètre et si le présent publie un arrêt, l'annulation de tentative, réessayent le message de sollicitation. Ceci permet à l'opération failing d'être réessayée (que je trouve utile pour le debuggin).