pb lors de l'importation multiple de fichiers txt

Bonjour,

Sauriez vous d'où viens le problème dans le code suivant lorsque j'essaie d'importer plusieurs fichiers txt? Merci par avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub MassImport()   Dim strPath As String Dim strFileName As String Dim dbf As Database   Set dbf = CurrentDb ' Set the path to the directory where the files will be. strPath = "H:\01 EDB\05 DIVERS\exoACCESS\import\" strFileName = Dir(strPath & ".txt") ' Retrieve the first entry. Do While strFileName <> "txt" ' Start the loop. DoCmd.TransferText acImportDelim, ncep, strPath & strFileName strFileName = Dir ' Get next entry. Loop   MsgBox "Objects imported successfully!", vbInformation, "Import Status"   End Sub

---

dir renvoie un nom de fichier

donc

Code:

---

Do While strFileName <> ""

---

Bonjour,

Après correction, la procédure me signifie que tous les objets ont été importés, seulement aucun d'eux ne l'a été... Bizarre...

Avez vous une idée?

Cordialement

Re,

Il me manquait un petit truc dans le code ci-dessous... Maintenant, mon soucis est que un fichier d'erreur est généré pour toutes tables (normal car le format d'importation contraint certaines variables à ne pas pouvoir être importées 'errreur de conversion de type'). Du coup, une table d'erreur est bien générée mais la table contenant les données ne l'est pas. Comme si générer une table d'erreur empêchait l'import du reste de la table convenablement (ce qui n'est pas le cas lors d'un import 'manuel')...

Avez vous une idée pour stopper la table d'erreur par exemple? ou autre...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ImportNCEP() Dim strPath As String Dim strFileName As String Dim dbf As Database   Set dbf = CurrentDb ' Set the path to the directory where the files will be. strPath = "H:\01 EDB\04 THESE\GCM\SCENARIOS\NCEP\FRANCE\" strFileName = Dir(strPath & "*.txt") ' Retrieve the first entry. Do While strFileName <> "" ' Start the loop. DoCmd.TransferText acImportDelim, "ncep", "tbl", strPath & strFileName strFileName = Dir ' Get next entry. Loop   MsgBox "Objects imported successfully!", vbInformation, "Import Status"   End Sub

---

Bonjour,

Ok, je n'avais pas bien compris que chaque fichier était importé l'un à la suite de l'autre dans une même table Access...

Comment modifier le code afin d'importer une table par fichier source?

Merci d'avance