Discussion :

[mouche]

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 :

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
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

[random]

dir renvoie un nom de fichier

donc

Code :

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

Do While strFileName <> ""

[mouche]

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

[mouche]

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 :

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
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

[mouche]

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