IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Travailler une base .mdb avec Excel


Sujet :

Access

  1. #1
    Membre habitué
    Inscrit en
    juin 2006
    Messages
    133
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 133
    Points : 150
    Points
    150
    Par défaut 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.

  2. #2
    Invité
    Invité(e)
    Par défaut
    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

  3. #3
    Membre habitué
    Inscrit en
    juin 2006
    Messages
    133
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 133
    Points : 150
    Points
    150
    Par défaut
    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.

  4. #4
    Invité
    Invité(e)
    Par défaut
    Re

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

    Starec

  5. #5
    Expert éminent sénior

    Avatar de Tofalu
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    octobre 2004
    Messages
    9 501
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 37
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : octobre 2004
    Messages : 9 501
    Points : 29 639
    Points
    29 639

  6. #6
    Membre habitué
    Inscrit en
    juin 2006
    Messages
    133
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 133
    Points : 150
    Points
    150
    Par défaut
    Merci à vous, je pense que je vais pouvoir me débrouiller avec ça.

  7. #7
    Membre habitué
    Inscrit en
    juin 2006
    Messages
    133
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 133
    Points : 150
    Points
    150
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Connexion a une base DB2 avec VBA sur excel
    Par cduchesn dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 01/06/2010, 22h36
  2. comment se connecter à une base ACCESS avec groupe de travail
    Par bambi98 dans le forum Bases de données
    Réponses: 1
    Dernier message: 17/04/2009, 12h18
  3. Réponses: 1
    Dernier message: 22/11/2007, 08h42
  4. duplication d'une base mdb avec un formulaire????
    Par nicassy dans le forum Access
    Réponses: 1
    Dernier message: 21/11/2005, 20h43
  5. exploiter une base de données excel avec delphi
    Par budylove dans le forum Bases de données
    Réponses: 2
    Dernier message: 01/02/2005, 19h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo