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 :

Gestion de fichier de type personnalisé


Sujet :

VBA Access

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2002
    Messages
    76
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 76
    Par défaut Gestion de fichier de type personnalisé
    Bonjour,

    après plusieurs recherches, je me retourne vers vous pour trouver une solution à mon souci qui est le suivant:
    je dois développer un bout de code qui doit parcourir un dossier qui contient un ensemble de fichier plat afin d'intégrer le contenu dans une table Access pour créer des reportings.
    les éléments dont je dispose sont les suivants :
    1. un dossier contenant des fichiers plats (80 fichiers)générés par un programme tierce
    2. les fichiers sont nommés comme ceci "DWSS"&Année sur 2 car&Mois sur 2 car.indice sur 3 car
      • pour le mois de juin 2009 et l'expéditeur 021, le fichier se nommera DWSS0906.021 (voir pièce jointe)
        même
    3. la différence entre les 80 fichiers est l'indice de l'expéditeur


    voici le raisonnement que j'ai essayer de suivre pour lire les 80 fichiers/
    1. modifier le type de fichier en .txt (voir le code)
    2. ouvrir le fichier et commencer à le lire à partir d'une position bien précise
    3. intégrer le contenu dans une table access
    4. le fermer
    5. passer au suivant


    Code de modification du type:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    Dim rep
    rep = Dir("E:\PARTAGE\INFORMATIQUE\BASE DE DONNEES ACCESS\STOCK\DWSS*.*")
    Do While (rep <> "")
        Name rep As rep ".txt"
        rep = Dir
    Loop

    j'aurais besoin de vous pour :
    1. valider mon raisonnement
    2. ouvrir le fichier, me positionner à un point précis et intégrer dans une table


    les fichiers sont à intégrer dans la même table

    je ne sais pas si c'est clair ce que j'expose.

    merci pour votre aide.

    Imad
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Charger un fichier de type personnalisé
    Par fmed1900 dans le forum C#
    Réponses: 6
    Dernier message: 19/03/2013, 13h08
  2. Réponses: 4
    Dernier message: 06/02/2012, 22h49
  3. [MySQL] Gestion de variable de type texte comme un fichier
    Par FotoXe33 dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 25/04/2010, 17h14
  4. [JDOM] Gestion "gros fichiers"
    Par Haazheel dans le forum Format d'échange (XML, JSON...)
    Réponses: 10
    Dernier message: 17/10/2003, 13h42
  5. [Concept] BD ou Gestion par fichier. Intérêt de la BD ?
    Par Cian dans le forum Décisions SGBD
    Réponses: 3
    Dernier message: 28/11/2002, 12h16

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