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 :
- un dossier contenant des fichiers plats (80 fichiers)générés par un programme tierce
- 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- 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/
- modifier le type de fichier en .txt (voir le code)
- ouvrir le fichier et commencer à le lire à partir d'une position bien précise
- intégrer le contenu dans une table access
- le fermer
- 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 :
- valider mon raisonnement
- 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
Partager