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 :

[A-03] Création d'un tableau à partir d'une requête


Sujet :

VBA Access

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2009
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 17
    Points : 11
    Points
    11
    Par défaut [A-03] Création d'un tableau à partir d'une requête
    Bonjour,

    INFORMATIONS concernant mon outils :

    environnement : access 2003.
    base de données : contient les cotations du CAC 40 et de ses 40 composantes, les codes ISIN, et les NOMS sur 3 ans

    J'ai réalisé 2 requêtes qui me permettent d'obtenir les cotations des différentes actions à une date donnée (origine) et de faire la moyenne des cours pour chaque action sur une période déterminée.

    Je souhaiterais mettre les informations obtenues dans un tableau afin de pouvoir réutiliser ces informations.

    Au final ces informations doivent être affiché sur excel.

    Voici mes 2 requetes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
     
    'Requête pour les cours à l'origine.'
     
    Sub requete_vinit(mabdd, vinit, debut)
        Set vinit = mabdd.CreateQueryDef("", "SELECT CAC40.NOM, COTATIONS.CODE_ISIN, COTATIONS.COURS_CLOTURE FROM CAC40 INNER JOIN COTATIONS ON CAC40.CODE_ISIN = COTATIONS.CODE_ISIN WHERE (Date = debut) ORDER BY COTATIONS.CODE_ISIN;")
    End Sub
     
    'Requête pour la moyenne des cours, entre origine+1jour et fin.'
     
    Sub requete_vmoyenne(mabdd, vmoyenne, debut2, fin)
        Set vmoyenne = mabdd.CreateQueryDef("", "SELECT COTATIONS.CODE_ISIN, AVG(COTATIONS.COURS_CLOTURE) AS moyenne FROM COTATIONS WHERE (Date BETWEEN #debut2# AND  #fin# )GROUP BY COTATIONS.CODE_ISIN ORDER BY COTATIONS.CODE_ISIN")
    End Sub
    Ai-je été clair ?
    Je l'espère.

  2. #2
    Responsable
    Office & Excel


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 57
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 122
    Points : 55 927
    Points
    55 927
    Billets dans le blog
    131
    Par défaut
    Bonjour et bienvenue sur nos forums.

    A priori, je ne vois pas trop l'utilité de code pour ce genre de cas. Quoi qu'il en soit, on peut, avec Excel, utiliser msquery pour récupérer dans un tableau Excel les données d'une table ou d'une requête Access.

    Merci d'en dire un peu plus que je puisse voir vers quel forum te réorienter.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2009
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 17
    Points : 11
    Points
    11
    Par défaut
    En réalité je souhaite réunir les deux objets pour pouvoir calculer la performance entre la valeur initiale et la moyenne des cours entre la date de la valeur initiale +1 jour et la date finale.

    Une fois cela fait, je souhaite trier mon nouveau tableau de la plus grosse perf à la plus petite.

    Enfin j'afficherai à l'écran les meilleures et moins bonnes perf.

  4. #4
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2009
    Messages
    17
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 17
    Points : 11
    Points
    11
    Par défaut
    "Je me suis très ma lexprimé. En faite je souhaite récupérer la requête sous forme d'une tableau comme ceci [ tab[i...] ] pour pouvoir le modifier facilement."

    Citation Envoyé par helprojet Voir le message
    En réalité je souhaite réunir les deux objets pour pouvoir calculer la performance entre la valeur initiale et la moyenne des cours entre la date de la valeur initiale +1 jour et la date finale.

    Une fois cela fait, je souhaite trier mon nouveau tableau de la plus grosse perf à la plus petite.

    Enfin j'afficherai à l'écran les meilleures et moins bonnes perf.
    Si vous trouvez cette solution inadaptée, je suis ouvert à tout type de proposition.

Discussions similaires

  1. Réponses: 2
    Dernier message: 15/05/2012, 12h41
  2. Création d'un rapport à partir d'une requête
    Par jubourbon dans le forum SSRS
    Réponses: 2
    Dernier message: 13/07/2011, 17h29
  3. Création d'un graphique à partir d'une requête
    Par overlolo dans le forum IHM
    Réponses: 1
    Dernier message: 11/12/2010, 18h42
  4. Création d'un état à partir d'une requête
    Par keeepcoool dans le forum IHM
    Réponses: 1
    Dernier message: 31/03/2009, 06h44
  5. [PHPLIB] Afficher un tableau à partir d'une requête
    Par Erigion dans le forum Bibliothèques et frameworks
    Réponses: 10
    Dernier message: 06/02/2006, 11h55

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