Supprimer une table dans une base externe

Le code qui suit permet de supprimer une table dans une autre base de donnée.

L'argument "strDb" correspond au chemin complet de la base de donnée externe.
L'argument "strTbl" correspond au nom de la table que l'on souhaite supprimer.

Public Function DeleteTableExt(strDb As String, strTbl As String)

Dim db As Database
Set db = OpenDatabase(strDb)
db.TableDefs.Delete strTbl
db.Close: Set db = Nothing

End Function

Auteur : Jessy SEMPERE