Importer fichiers txt d'un dossier dans une table

**avantoux** · 27/12/2005, 11h18

La commande DoCmdTransfert marche comme ca
DoCmdTransferTextA_IMPORTFIXED, "FormatEssai", "T_Client", "C:\NomFichier"

Il faut donc indiquer le nom du fichier à chaque fois.

Hors j'aimerai une commande qui permette d'importer tous les TXT d'un dossier qui ont une mise en page identique.

Est ce possible?

merci d'avance.

**Dolphy35** · 27/12/2005, 11h26

Salut,

oui c'est possible tu ouvre la fenêtre Ouvrir de Windows et tu récupère le chemin du fichier texteque tu met dans ta ligne DocmdTransfer.

@+

**Frank** · 27/12/2005, 11h38

Par rapport à ce que te dit Dolphy35, il faut que tu pousses un peu plus la logique.
Il te faut ouvrir le dossier où se trouvent tes fichiers texte, et que tu fasses une boucle pour importer les fichiers les uns après les autres.

**Dolphy35** · 27/12/2005, 11h45

Envoyé par Frank

Par rapport à ce que te dit Dolphy35, il faut que tu pousses un peu plus la logique.
Il te faut ouvrir le dossier où se trouvent tes fichiers texte, et que tu fasses une boucle pour importer les fichiers les uns après les autres.

C'est vrai j'ai lu trop vite

Frank a raison il faut que tu fasse une boucle pour appeler tous tes fichiers 1 à 1. L'idéal serait qu'ils portent tous la même racine dans le nom et qu'il y est un chiffre comme cela dans te boucle tu incrémente selement le chiffre.

@+

**Muhad'hib** · 27/12/2005, 12h01

Salut,

Pour faire cette boucle tu peux faire F& sur la fonction Dir (il y a notament un exemple qui fait une boucle de ce type).

A+

**avantoux** · 27/12/2005, 12h02

avec cette boucle, si eventuellent y'a de nouveaux fichiers ils seront importer également? parceque ce script s'executera tous les jours.

merci

**Frank** · 27/12/2005, 12h02

Envoyé par avantoux

avec cette boucle, si eventuellent y'a de nouveaux fichiers ils seront importer également? parceque ce script s'executera tous les jours.

merci

Oui.

Invité · 27/12/2005, 12h08

Salut,

La solution pour savoir si tes fichiers ont été importés ou non c'est de mettre leur nom dans une table, et quà chaque export de tester dans cette table si le nom existe ou non

Starec

**Frank** · 27/12/2005, 12h10

Envoyé par Starec

Salut,

La solution pour savoir si tes fichiers ont été importés ou non c'est de mettre leur nom dans une table, et quà chaque export de tester dans cette table si le nom existe ou non

Starec

Soit ça, soit tu déplaces les fichiers importés dans un nouveau dossier, afin d'éviter les doublons.

Invité · 27/12/2005, 12h14

Re

Exact Franck, un de mes collègue à créer un répertoire Archive ou il a mis tout les fichiers qu'il avait traité, c'est plus simple, car avec les tables à la longue, les recherches seront de plus en plus longues.

Starec

**avantoux** · 27/12/2005, 15h26

les fichiers eux memes seront remplacés tous les 7jours.

Il n'y a donc pas de fonction qui permettent d'importer toutes les fichiers ayant l'extention txt...

sur linux c'est pourtant faisable

jfc · 27/12/2005, 15h36

Il n'y a pas de fonction toute faite.

L'écriture de la fonction n'est en soit pas compliquée.

il suffit de faire un DIR(*.TXT)

puis une boucle sur DIR pour importer tous les fichiers de type TXT

**Frank** · 27/12/2005, 15h37

On a dit ça ?
Je ne crois pas, tu as dû mal comprendre.

Si tu avais pris le temps de faire une recherche dans l'aide Access, tu aurais trouvé ceci :

FileSearch Object
See Also Properties Methods Events Specifics
FileSearch
Multiple objects

Some of the content in this topic may not be applicable to some languages.

Represents the functionality of the Open dialog box (File menu).

Using the FileSearch Object
Use the FileSearch property to return the FileSearch object. The following example searches for files and displays the number of files found and the name of each file.

With Application.FileSearch
If .Execute() > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
Use the NewSearch method to reset the search criteria to the default settings. All property values are retained after each search is run, and by using the NewSearch method you can selectively set properties for the next file search without manually resetting previous property values. The following example resets the search criteria to the default settings before beginning a new search.

With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With

**avantoux** · 27/12/2005, 15h42

Envoyé par jfc

Il n'y a pas de fonction toute faite.

L'écriture de la fonction n'est en soit pas compliquée.

il suffit de faire un DIR(*.TXT)

puis une boucle sur DIR pour importer tous les fichiers de type TXT

ben voila c'est ca que je cherchai

.

Mais pourquoi faire une boucle sur DIR? puisqu'on faisait *.TXT on lui indique tous les txt?