VBScript : création base Access pour import fichier XML

Bonjour,

Je souhaite créer une base de données Access à travers mon code VBScript. J'arrive bien à ouvrir une base de données existante grâce à :

Code:

---

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

Function testImportationXML() Dim oAccess Dim oDb Set oAccess = CreateObject("Access.application") oAccess.Visible = False DupliquerFichier oAccess.OpenCurrentDatabase ("cheminDeMaBase.mdb") Set oDb = oAccess.CurrentDb() LancerImportationXML oAccess, "chemin/fichierAImporter.xml" oAccess.CloseCurrentDatabase oAccess.Quit Set oAccess = Nothing Set oDb = Nothing End Function

---

mais je ne parviens pas à trouver comment en créer une nouvelle, dont je pourrais définir l'emplacement.

Je n'étais vraiment pas loin. Il suffisait d'utiliser tout bêtement (et oui...) la fonction newCurrentDatabase()

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function LancerImportationXML(base, fichierXML) base.ImportXML _ DataSource:=fichierXML End Function   Sub testImportation3() Dim oAccess Dim oDb Set oAccess = CreateObject("Access.application") oAccess.Visible = False oAccess.newCurrentDatabase ("chemin_de_la_base_à_créer/nom.mdb") Set oDb = oAccess.CurrentDB() LancerImportationXML oAccess, "chemin_du_fichier_à_importer/fichierAImporter.xml" oAccess.CloseCurrentDatabase oAccess.Quit Set oAccess = Nothing Set oDb = Nothing End Sub

---