Discussion :

[Andalor]

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.

[Invité]

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

[Andalor]

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 :

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

Dim BaseDonne As New dao.recordset

Même :

Code :

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

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.

[Invité]

Re

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

Starec

[Tofalu]

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

Une bonne piste

[Andalor]

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

[Andalor]

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

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