Discussion :

[Mut]

Je souhaiterais savoir s'il existe un moyen pour pouvoir effacer le contenu d'une table Access par le biais d'Excel.


Merci

[SilkyRoad]

bonsoir

il existe sans doute d'autres solutions, mais tu peux deja tester cette macro pour supprimer tous les enregistrements de la Table2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub supprimerEnregistrementsTable()
'Necessite d'activer la reference
'Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Rst As ADODB.Recordset
Dim Requete As String
 
Set Cn = New ADODB.Connection
Set Rst = New ADODB.Recordset
 
Cn.Provider = "Microsoft.Jet.Oledb.4.0"
Cn.ConnectionString = "C:\Documents and Settings\michel\dataBase.mdb"
Cn.Open
 
Requete = "DELETE * FROM Table2"
Cn.Execute Requete
 
Cn.Close
Set Cn = Nothing
End Sub

bonne soiree
michel

[Mut]

ça fonctionne très bien merci beaucoup !!!