Discussion :

[jedesn]

J'importe des données d'Excel jusqu'à une table d'Access et chaque fois que j'importe des nouvelles données, je dois supprimer les anciennes. Que dois-je rajouter à mon code pour que l'opération se fasse ? Voici mon code:

Private Sub macro_import_octobre_Click()
On Error GoTo Err_macro_import_octobre_Click

Dim stDocName As String

stDocName = "Import_octobre"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Octobre", "U:\Analyse de la gache\Template\Octobre\export_octobre.xls", True
Exit_macro_import_octobre_Click:
Exit Sub

Err_macro_import_octobre_Click:
MsgBox Err.Description
Resume Exit_macro_import_octobre_Click

End Sub


Merci beaucoup !

[Jeremie_Vi]

Utilise DAO

dim table as dao.recordset
set table = currentdb.openrecordset("nom de ta table",dbopentable)
while not table.eof
table.edit
table.delete
table.movenext
wend

Pour utiliser la bibliotheque DAO il faut ke tu la reference dans VB
pour cela va voir les tutoriels ACCESS

[jedesn]

D'accord... Je garde cette cette option en réserve mais n'y a-t-il pas une façon plus simple d'y arriver sans y aller par DAO ??

Merci !

[Petogaz]

salut,

il faut faire des recherches avant de poster. voici l'instruction SQL que tu peux rajouter avant l'import pour éffacer les données de ta table :

Code :

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

1
2
3
dim SQL as string
SQL = "Delete * From TABLE" 
Docmd.RunSQL SQL

[jedesn]

Merci pour la réponse. J'avais bel et bien fais des recherches avant de poster et je crois qu'il faut respecter les niveaux de connaissance de chacun.

Merci encore.

[Petogaz]

Merci pour la réponse. J'avais bel et bien fais des recherches avant de poster et je crois qu'il faut respecter les niveaux de connaissance de chacun.

je n'ai en aucun cas mentionné le niveau de qui que ce soit. en lisant les règles sur le forum tu comprendra. et je suis persuadé qu'en faisant une recherche tu aurait trouvé. la preuve le lien qui suit :

http://access.developpez.com/faq/?page=SQL#DeleteAll

et il y en beaucoup d'autres. pas besoins d'avoir un certain niveau pour faire une recherche. et j'arrête là.