FONCTION QUI VERIFIE L'EXISTENCE D'UNE TABLE ACCESS

Public Function ExisteTableDAO(NomTable As String) As Boolean
' Déterminer l'existence d'une table interne
' Retourne: Vrai si elle existe, Faux si elle n'existe pas.

Dim Bdd As Database, Test As String
Const INEXISTANTE = 3265
On Error Resume Next
Set Bdd = CurrentDb
Test = Bdd.TableDefs(NomTable).Name
ExisteTableDAO = CBool(Err.Number <> INEXISTANTE)
End Function

je veux une fonction qui verifie l'existence d'une table access et qui fonctionne bien