Pb code gestion d'erreur

[NATOU2]

Bonjour à tous,

Dans mon code :
Je supprime une table
J'importe de nouvelles données de l'AS400
J'exécute une requête ajout
puis je fais apparaître un petit message indiquant que l'importation des données s'est bien effectuée.

Le problème est que si l'utilisateur se trompe dans son mot de passe AS400, la table est supprimée et le code s'arrête. Du coup, lorsqu'il réexécute le code ça provoque l'erreur 7874 car il n'y a plus de table à supprimer.

J'ai donc inséré dans mon code une gestion d'erreur :

On Error GoTo Erreur
 
DoCmd.DeleteObject acTable, "CIFH0_MGLIPOCLI"
DoCmd.TransferDatabase acImport, "ODBC", "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};DBQ=CIFH0;SYSTEM=HEPSTG1;FILEDSN=BTK.dsn", acTable, "CIFH0.MGLIPOCLI", "CIFH0_MGLIPOCLI", False
DoCmd.OpenQuery "Aj_POSCATOPCLIENTS"
MsgBox "Importation des données TOP30 CLIENTS terminée !"
 
Erreur:
 Select Case Err.Number
 Case 7874
 Resume Next
 Case Else
 MsgBox Err.Number & " " & Err.Description
 End Select

Ce que je ne comprends pas c'est que, suite à mon message final indiquant que l'importation s'est bien déroulée, il m'indique une autre message avec "0" comme si il détectait une erreur même lorsque la table est existante (donc pas d'erreur 7874).

[Domi2]

Bonjour,

Juste avant l'étiquette "Erreur:"

Exit Sub 'ou Exit Function

Sinon ta gestion d'erreur est exécutée même s'il n'y en pas.

Domi2

[NATOU2]

Merci beaucoup de ta réponse rapide Domi2.

Quelle erreur bête, j'aurais pû deviner.