Travailler une base .mdb avec Excel

Bonjour à vous,

J'ai à ma disposition un fichier excel qui vient traiter une fichier texte qui est très mal constitué, pour en ressortir les informations utiles. Ce côté du script est réalisé.

Maintenant, je voudrais que les données que j'ai pu extraite de ce fichier texte et désormais stocké sur le fichier excel soient directement enregistrer dans une base de données access au format .mdb.

Je ne veux pas les travailler avec le VBA sous Access, car cette base de donnée n'est pas censé être utilisé par l'intermédiaire d'access mais plutôt par l'intermédiaire du php.

Ainsi, je vous demande comment réaliser l'accès à une base de données access par l'intermédiaire du VBA d'excel ou tout autre solution qui pourrait réaliser ce tour de passe passe.

Je vous remercie de toute aide apportée.

Salut

Sous Excel tu peux utiliser ADO ou DAO pour te connecter à une base Access,
et maintenant tu peux envoyer tes données dans une table Access

Starec

Et bien en faite, il ne reconnait pas DAO, ADO, DataBase en tant que type lors de la déclaration des variables sous la forme :

Code:

---

Dim BaseDonne As New dao.recordset

---

Même :

Code:

---

Dim MonAccess As New Access.Application

---

Il ne le reconnait pas comme un type pré-définit mais un type à définir par l'utilisateur.
J'utilise Excel 2003 sur Windows XP.

Re

As-tu coché les références Outil/Référence dans l'éditeur VB ?

Starec

http://warin.developpez.com/access/dao

Une bonne piste ;)

Merci à vous, je pense que je vais pouvoir me débrouiller avec ça.

Voilà, j'ai reussit, je met le bout de code que j'ai fait pour y arriver, comme ça le prochain qui en aura besoin ne cherchera pas toute une matinée :mrgreen:

Code:

---

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

Dim oRst As DAO.Recordset Dim oDb As DAO.Database Set oDb = OpenDatabase("C:\Documents and Settings\adouxj\Mes documents\essaie.mdb") Set oRst = oDb.OpenRecordset("Table1", dbOpenTable) 'Passe en mode Ajout oRst.AddNew 'Affecte les différents champs oRst.Fields("Nom").Value = "Roberto" oRst.Fields("Prenom").Value = "Carlos" 'Met à Jour oRst.Update 'Libération des objets oRst.Close oDb.Close Set oRst = Nothing Set oDb = Nothing

---