La gestion d'erreur se fait sous forme de Goto.
Pour cela il faut utilser la syntaxe suivante au début de ta fonction
où Label est une étiquette vers laquelle sera redirigée l'exécution en cas d'erreur
Voici un exemple de gestion d'erreur
Function Connecter() As Boolean
On Error GoTo Err_Connecter
Connecter = False
Set objJW = New Excel.Application
...
OnContinue:
...
Exit function
Err_Connecter:
Connecter = False
If Err.number = 9 then
MsgBox Err.Description
Else
Resume OnContinue
Endif
End Function
|
Message édité par tegu le 04-05-2006 à 11:10:48
