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

VBA Access Discussion :

macro access (import d'une valeur d'excel)


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2007
    Messages
    85
    Détails du profil
    Informations personnelles :
    Âge : 45

    Informations forums :
    Inscription : Avril 2007
    Messages : 85
    Par défaut macro access (import d'une valeur d'excel)
    bonjour.

    Je voudrais simplement (facon de parler ) importer le contenue d'une cellule Excel vers Acces.

    En fait, j'ai une macro sur excel qui fonctionne en deux temps :
    - lancement d'une macro Acces qui supprime le contenue d'une BDD ("BDD1")access et qui est sencée ajouter le contenu d'une cellule Excel (Parametres!C11)
    - Importe une requete d'access qui dépend du nouveau contenu de la "BBD1".

    L'objectif étant d'importer dans Excel la requete Access correspondant à une agence dont le num est saisis dans (Parametres!C11).
    (Cela afin d'éviter de créer n requetes pour n agences.

    Ce systhème marchais jusqu'à présent, mais il vient de planter.
    Et je ne sais pas pquoi, la nouvelle valeur ne s'importe plus dans BDD1.
    Le reste à l'air de marcher.


    Si qq'un à une idée ou un systhème plus simple d'utilisation je suis preneur...

    Merci d'avance


    fred

  2. #2
    Membre Expert
    Avatar de cavo789
    Homme Profil pro
    Développeur Web
    Inscrit en
    Mai 2004
    Messages
    1 797
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Développeur Web

    Informations forums :
    Inscription : Mai 2004
    Messages : 1 797
    Par défaut
    Tu as un fichier Excel dans lequel tu encodes un numéro d'agence et tu veux lancer un query Access afin de récupérer les données de cette agence ?

    Nul besoin de travailler en deux temps :

    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
    17
    18
    19
    20
    21
    22
    23
    Set objConnection = CreateObject("ADODB.Connection")
     
          objConnection.CursorLocation = adUseClient
     
          Set rsADO = CreateObject("ADODB.RecordSet")
     
          sDSN = "ODBC;DSN=MS Access Database;DBQ=MaDatabase"
     
          objConnection.Open sDSN
     
          sSQL = "SELECT * FROM MaTable WHERE Agence= " & wNumAgence
     
          rsADO.Open sSQL, objConnection, adOpenStatic, adLockReadOnly
     
          If Not rsADO.Eof Then
     
          End If
     
          rsADO.Close
          Set rsADO = Nothing
     
          objConnection.Close
          Set objConnection = Nothing
    Pour que cet exemple fonctionne, tu dois ajouter une référence vers Microsoft DAO dans ton code.

    Remarque : à toi à modifier le code pour qu'il fonctionne pour toi.

Discussions similaires

  1. [AC-2007] Importation d'une ligne entière Excel vers Access
    Par polemos dans le forum VBA Access
    Réponses: 1
    Dernier message: 03/02/2010, 12h03
  2. [AC-2000] Execution d'une macro Access lors d'une importation Excel
    Par Nicolas Plan dans le forum Access
    Réponses: 7
    Dernier message: 23/04/2009, 14h52
  3. [AC-2000] Execution d'une macro Access lors d'une importation Excel
    Par Nicolas Plan dans le forum Modélisation
    Réponses: 2
    Dernier message: 22/04/2009, 10h54
  4. activation d'une macro après sasie d'une valeur sous excel
    Par pecofrou dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/12/2007, 21h52
  5. Réponses: 5
    Dernier message: 09/09/2005, 17h51

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