Discussion :

[AndréPe]

Bonsoir au forum,
Pour une table de la base active, c'est très simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.DeleteObject acTable, MaTable

, mais quand il s'agit d'une table d'une autre base (base distante) est-ce possible ?
Merci de vos éventuelles réponses.
Cordialement

[hyperion13]

Salut
A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub btndelete_Click()
Dim dbs2 As DAO.Database
 
Set dbs2 = OpenDatabase("C:\Users\Andre\Desktop\mabdd2.accdb")
    dbs2.TableDefs.Delete "nomtableasupprimer"
dbs2.Close
Set dbs2 = Nothing
End Sub

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "DROP TABLE [C:\Users\Andre\Desktop\mabdd2.accdb].[nomtableasupprimer]

[AndréPe]

Merci de ta réponse qui a donné la solution de mon problème.
Je viens seulement de tester, ayant été malgré moi éloigné quelques jours du PC.
J'ai commencé par la seconde suggestion qui va très bien, même avec des bases en mdb.
Je testerai plus tard la routine. et te tiendrai au courant.
Grand merci une fois encore.
Cordialement