Discussion :

[Hamdi]

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

[argyronet]

Bonjour,

1/ Renommer le fichier est inutile...
2/ Tu mets en place une boucle Do/Loop qui lit le dossier avec la condition de lecture des fichiers dont les 4 premiers caractères sont "DWSS" avec éventuellement l'usage de la fonction FileDateTime à vérifier en fonction de la période (date de génération des fichiers), ce qui me semble judicieux...
3/ Pour chaque fichier trouvé, tu appelles une procédure (à créer) qui effectue une liaison acLink (pas d'import acImportDelim) en base via la méthode TransfertText... avec comme nom de table, le nom du fichier...
=> Tu stockes alors le nom de chaque table liée dans une table (usage ultérieur), par exmple TBLDWSSFiles...
4/ Tu montes une boucle de lecture des enregistrements de la table TBLDWSSFiles représentant les tables et dans cette même boucle, monter une clause INSERT/SELECT dans la table finale visée via la méthode Execute.
5/ Tu parcours ce même contenu de la table TBLDWSSFiles afin de supprimer les tables fraîchement liées...

Argy