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 :

[Exportation Access -> Excel]remplir un nombre de cellules non defini à l'avance


Sujet :

Access

  1. #1
    Nouveau membre du Club
    Inscrit en
    Avril 2006
    Messages
    49
    Détails du profil
    Informations forums :
    Inscription : Avril 2006
    Messages : 49
    Points : 28
    Points
    28
    Par défaut [Exportation Access -> Excel]remplir un nombre de cellules non defini à l'avance
    Bonjour,

    Désirant remplir un fichier excel avec des données de ma table, j'ai crée un petit module qui marche relativement bien.

    J'aimerais remplir des cellule avec un champ d'une table (pas de problème)
    mais il existe plusieurs enregistrement de celui-ci. (concretement, il existe plusieurs points de prélèvement pour une entreprise.)

    Suivant le nombre d'enregistrement, commment remplir le nombre de cellule adequate.

    je pense qu'il faut utiliser une boucle de type:
    si enregistrement non vide alors
    (remplir cellule N
    allez à l'enregistrement suivant)
    Sinon arret.

  2. #2
    pgz
    pgz est déconnecté
    Expert éminent Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 70
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Points : 6 591
    Points
    6 591
    Par défaut
    Bonjour,

    Si tu ouvres un recordset sur la table, tu pourras lire successivement tous les enregistrement avec une boucle While ... Wend.
    Tu peux utiliser un pointeur de ligne que tu initialises au numéro de la ligne xl qui doit recevoir le premier enregistrement, et que tu incrémentes après chaque écriture dans xl.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    intligne = 4 ' numéro de 1ère ligne dans la feuille xl
    While not rst.EOF
        'écrire rst courant sur ligne intligne
        rst.MoveNext
        intLigne = intLigne +1
    Wend
    Bon courage,

    pgz
    pluritas non est ponenda sine necessitate - Le rasoir d'Okham
    Ne jamais attribuer à la malignité ce que la stupidité peut expliquer -Le rasoir d'Hanlon

  3. #3
    Nouveau membre du Club
    Inscrit en
    Avril 2006
    Messages
    49
    Détails du profil
    Informations forums :
    Inscription : Avril 2006
    Messages : 49
    Points : 28
    Points
    28
    Par défaut
    Merci beaucoup, ca marche très bien.

    Par contre, je vais peut-être changé de fonctionnement et passé par une fenetre qui demanderais à l'utilisateur de choisir quel points de prelevement il veut choisir.

    Je vais donc chercher comment creer une fenetre de choix et comment inserer ces choix. (je ne sais pas encore comment faire mais je pense que la FAQ pourra repondre en partie.)

    Je te remercie encore pour ta reponse simple et clair.

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

Discussions similaires

  1. Export ACCESS vers EXCEL
    Par BAYRAL dans le forum VBA Access
    Réponses: 2
    Dernier message: 21/11/2007, 15h13
  2. Réponses: 5
    Dernier message: 15/07/2007, 22h49
  3. Export Access vers Excel nb de champs variable
    Par SylvainJ dans le forum Access
    Réponses: 4
    Dernier message: 05/03/2007, 13h55
  4. Réponses: 7
    Dernier message: 20/09/2006, 11h04
  5. export access vers excel en asp
    Par oniric dans le forum ASP
    Réponses: 9
    Dernier message: 24/03/2006, 14h21

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