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