[Access 2003] Tester avant d'importer des tables en vba

Salut,
Est il possible de faire un test sur une BD avant une importation de tables par vba afin de savoir si les tables qu'elle contient sont correct.

Je m'explique, actuellement j'ouvre une boite de dialogue dans laquelle je sélectionne une base (X) puis j'efface certaines tables de ma currentdb (Y) et j'importe ces tables de X vers Y mais si par malheur lors de ma sélection j'ai choisi une mauvaise base, alors mes tables sont effacées sur Y et je ne pourrait pas en importer à partir de X puisque inexistante.

D'avance merci
Fred

Bonjour,

J'avais un souci comparable.

J'ai constitué dans mon appli une table avec le nom des tables à importer, avec éventuellement le nom et le chemin d'accès de la base X.
Le code parcours la table et procède à l'import, table par table.


A+

salut,
oui je suis d'accord mais tu es bien obligé d'effacer tes tables avant d'en importer car access ne les remplace pas, il incrémente le nom. Donc si tu efface, même si tu as les noms des tables, si il y a erreur tu n'as plus les tables "d'origines".
Je n'ai pas le problème pour importer les tables mais surtout d'être sûr que celles que je veux importer sont bien dans l'appli sélectionnée, et là.....

Bonsoir,

une adaptation du code de la faq : Comment savoir si une table existe ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function ExistTable2(strDB As String, strTabl As String) As Boolean Dim db As DAO.Database Dim str As String On Error GoTo err01 Set db = Application.DBEngine.OpenDatabase(strDB) str = db.TableDefs(strTabl).Name ExistTable2 = True Exit Function err01: Select Case Err.Number Case 3265 ExistTable2 = False End Select End Function

---

Exemple

Code:

---

MsgBox ExistTable2("C:\Mes Documents\bd_1.mdb", "Prdts")

---

A+

Un grand merci LedZeppII, çà fonctionne nickel. :yaisse2:
Merci

FRED