controler les bug ou erreur lors de l'exécution d'une macro Excel

[darkspoilt]

Bonjour je souhaite créer un controle des erreur (action a exécuter en cas d'erreur)

j'ai essayé ca

[cpp]Sub GestionNat()

On Error GoTo Err_gestionNAT

...

'fin du programme de diffusion
Exit_GestionNAT:
End Sub

'commande en cas d'erreur
Err_gestionNAT:

'on supprimne les enregistrements du fichier envoyé
msgbox "ca a planté!!"

MsgBox Err.Description
Resume Exit_GestionNAT[/cpp]

mais il me met comme erreur étiquette non défini
Je suis dans un environnement Excel
Si quelqu'un peut m'aider merci d'avance

 

[zeb]

Que dit l'aide de VBA sur la ligne line de On Error GoTo line ?

Où sont le début et la fin de ta procédure ?

Autant te le dire tout de suite, quand tu auras répondu à ces questions, la solution sera évidente.

 

[darkspoilt]

oki je vois mais la marche sous access c'est pour cela et la fin de ma procédure il m'indiqu bien a ma ligne 18

 

[zeb]

Ben, non. Le début de GestionNat, c'est ligne 1, la fin, c'est ligne 9.
Tout ce qui est après n'est pas dans la même procédure.

Confonds-tu End Sub et Exit Sub ?

 

[darkspoilt]

apparement oui quel est al différence?

 

[Freeman23]

End sub c'est le marqueur de fin du code de ta prodédure. Donc ca doit tout englober meme sortie: et sortie_erreur: , sinon ca compile pas.
C'est un peu comme en C :

  void toto
  { // début proc

  } // fin proc

Sub toto ' début proc 

end sub ' fin proc

Alors que Exit Sub c'est une instruction qui dit : "tu sorts de la procédure", et ca fonctionne pendant l'exécution du code.

Enfin je sais pas si je suis clair...

 

[darkspoilt]

ah oui oki c'est bon merci