Discussion :

[bovins]

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 :

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

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?

[Jean-Philippe André]

salut,

essaie de rafraichir les tables :

Code :

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

db.TableDefs.Refresh

[bovins]

salut,

essaie de rafraichir les tables :

Code :

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

db.TableDefs.Refresh

ça ne marche pas

voici le code que j'ai écrit :

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
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!

[Jean-Philippe André]

ok,
et utiliser à la place un

Code SQL :

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

DROP TABLE Nomtable;

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

[bovins]

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

[Jean-Philippe André]

et en remplacant ceci

Code :

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

If tbl.Name Like "COEF *" Then

par cela

Code :

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

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

[bovins]

et en remplacant ceci

Code :

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

If tbl.Name Like "COEF *" Then

par cela

Code :

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

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 :

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

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

[Jean-Philippe André]

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

[bovins]

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

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

[Jean-Philippe André]

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

[bovins]

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 ?

[Jean-Philippe André]

exemple :

Code :

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

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