Discussion :

[nawakbling]

Bonjour

Pourriez-vous m'aider à rédiger mon code de sorte à importer tous les fichiers txt d'un répertoire, sans faire référence à leur nom.

J'ai essayé ceci, mais je ne sais pas par quoi remplacer *.txt ????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
' NomRepertoire est le chemin vers le répertoire contenant les fichiers à importer

  While NomRepertoire <> ""
            DoCmd.TransferText acImportDelim, "MaSpec", "TableTxt", NomRepertoire & "\*.txt"
      ' Lire le fichier suivant
      NomRepertoire = Dir
  Wend

Merci de votre aide

[helas]

Bonjour,
pour ma part lorsque je veux importer tous les fichiers d'un répertoire, je les stocke dans une table (tbFichiers) avec un champ Texte nmmé fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
'Stockage des fichiers
Set t = Currentdb.openrecordset("tbFichiers")
fichier= Dir(NomRepertoire & "\*.txt")
do until fichier=""
 t.AddNew
 t!fichier= fichier
 t.Update 
 fichier=Dir
Loop
 
'***** chargement des fichiers *****
'vidage de la table
DoCmd.RunSQL "DELETE TableTxt.* FROM TableTxt;"
'positionnement sur le premier fichier
t.MoveFirst
 
Do Until t.EOF
 DoCmd.TransferText acImportDelim, "MaSpec", "TableTxt", NomRepertoire & t!fichier
 t.moveNext
Loop
t.Close

Pourquoi stocker dans une table : parce que la commande Dir peut être perturber et ne pas donner le résultat voulu si d'autres commandes sont lancées, j'en ai l'expérience

[Tofalu]

Pour le traitement de fichiers, disques ou dossiers, AMHA, le FSO rend le code plus souple car il s'agit de manipuler une hiérachie d'objets avec des collections.

http://warin.developpez.com/access/fichiers/

[nawakbling]

Bonjour helas

Votre code marche super bien. Mes fichiers se chargent dans la table destination.
Juste un complément :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.TransferText acImportDelim, "MaSpec", "TableTxt", NomRepertoire & "\" & t!fichier

Merci aussi à Tofalu. Je testerai la solution FSO quand je passerai ma ceinture bleue