Importation fichier excel dans Access

Bonjour,
Je voudrais importer plusieurs fichier Excel (1 onglet par fichier) en table access. A chaque importation l'import Ajoute les données à la table existante. Comment écraser la table à chaque import ?
J'utilise docmd.transferspreadsheet.

En essayant de supprimer les tables avant import c'est pareil.
J'ai essayé le drop table sans success. puis

Code:

---

1 2 3 4 5 6 7

For i = 0 To db.TableDefs.Count - 1 Set tbl = db.TableDefs(i) If tbl.Name Like "COEF *" Then db.TableDefs.Delete tbl.Name End If Next i

---

Les tables sont bien supprimées mais l'importation les recrée en ajoutant les données. Elles doivent sans doute rester physiquement dans la base. comment faire?

salut,

essaie de rafraichir les tables :

Code:

---

db.TableDefs.Refresh

---

Citation:

---

Envoyé par jpcheck

salut,

essaie de rafraichir les tables :

Code:

---

db.TableDefs.Refresh

---

---

ça ne marche pas

voici le code que j'ai écrit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim db As Database Dim tbl As TableDef   Dim rep As String   Set db = DBEngine(0)(0)   For i = 0 To db.TableDefs.Count - 1 Set tbl = db.TableDefs(i) If tbl.Name Like "COEF *" Then db.TableDefs.Delete tbl.Name   db.TableDefs.Refresh   End If Next i   db.Close     ChDir ("G:\ETUDES\DS")   rep = Dir("G:\ETUDES\DS\coef *.xls")   Do While (rep <> "") DoCmd.TransferSpreadsheet acImport, , Left(rep, 8), rep, True rep = Dir Loop

---

objectif : supprimer les tables COEF * de la base et les importer (format Excel).

merci!

ok,
et utiliser à la place un

Code:

---

DROP TABLE Nomtable;

---

à la place du delete résoudrait-il ton problème ?

non ça ne marche pas.

En fait les fichiers se nomment COEF 160.xls, COEF 200.xls etc...
à la 1ere importation dans la base vide, sans modification du nom d'origine, Access les renomme en
COEF 160_xls etc..
avant toute autre importation, je voudrais supprimer ces fichiers car si on importe à nouveau Access créé des fichiers COEF 160_.xls1 etc..

Si on force le nom à la 1er importation dans la base vide, on a bien des tables nommées "COEF 160", "COEF 200" etc.. mais ensuite je n'arrive pas à les supprimer ou plus simplement à les remplacer lors d'un nouvel import.

Comment faire, je suis bloqué!
merci

et en remplacant ceci

Code:

---

If tbl.Name Like "COEF *" Then

---

par cela

Code:

---

If Left(tbl.Name,4) = "COEF" Then

---

Citation:

---

Envoyé par jpcheck

et en remplacant ceci

Code:

---

If tbl.Name Like "COEF *" Then

---

par cela

Code:

---

If Left(tbl.Name,4) = "COEF" Then

---

---

je ne comprends pas ce qui se passe :
je veux dans un 1er temps supprimer toutes les tables COEF*

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim db As Database Dim tbl As TableDef Set db = CurrentDb   For i = 1 To (db.TableDefs.Count - 1)   If Left(db.TableDefs(i).Name, 4) = "COEF" Then db.TableDefs.Delete db.TableDefs(i).Name End If Next i db.Close

---

(tabledefs.count-1) vaut 36 par exemple et à 36 j'ai une erreur "element non trouvé dans la collection". Pourquoi ? je crois que c'est apres le test des table MySys*

merci

le comptage va de 0 à 35 si tu as 36 tables ;)

Citation:

---

Envoyé par jpcheck

le comptage va de 0 à 35 si tu as 36 tables ;)

---

ok mais quelle est l'erreur dans le "for" ?

il me semble que si tu delete les tables petit à petit, tu n'as plus 36 mais 35 tables, puis 34, etc.

aussi je te recommande de passer par une boucle For Each à la place de For i :)

Citation:

---

Envoyé par jpcheck

il me semble que si tu delete les tables petit à petit, tu n'as plus 36 mais 35 tables, puis 34, etc.

aussi je te recommande de passer par une boucle For Each à la place de For i :)

---

non c'est pas possible la réf n'est pas dynamique (et pas de refresh). même si je fais un delete le pointeur passe au suivant.
D'ailleurs au demarrage, tabledefs.count est dejà à 46 au lieu de 21.
pour le for each, je ne sais pas l'écrire . c'est comment ?

exemple :

Code:

---

1 2 3 4

dim tmptbl as TableDef For each tmptbl In CurrentDb.Tabledefs if tmptbl.Name = "pioupiou" Then Msgbox "Pioupi \o/" Next

---