Erreur 35519, vous ne pouvez pas importer ce fichier

[gael49]

Bonsoir,

J'aimerais importer plusieurs fichiers textes (extension EDI) d'un même dossier à partir d'une commande, j'ai écris ce bout de code pour l'instant mais j'ai toujours cette erreur 35519 :

Private Sub Commande0_Click()
      Dim InputDir, ImportFile As String, tblName As String
 
      InputDir = "C:\EDI"
      ImportFile = Dir(InputDir & "\*.EDI")
 
      Do While Len(ImportFile) > 0
         DoCmd.TransferText acImportFixed, "SPECIF", "IMPORTATION_EDI", ImportFile, False
      Loop
 
End Sub

PS : Je suis débutant en VBA et Access, j'ai réussi à écrire ce code en m'inspirant d'une page du site MS (http://support.microsoft.com/kb/158940/fr) et de Google.

Merci d'avance pour votre aide
Gaël

[gael49]

j'ai un peu modifié mon code, mais toujours le même message d'erreur
La ligne

MsgBox (InputDir & "\" & ImportFile)

m'indique pourtant bien le bon fichier avec un chemin correct...

 
Private Sub Commande1_Click()
      Dim InputDir, ImportFile As String, tblName As String, FileCount As Integer
      FileCount = 0
      InputDir = "C:\EDI"
      ImportFile = Dir(InputDir & "\*.EDI")
      If ImportFile = "" Then
        MsgBox ("Aucun fichier EDI n'a été trouvé dans le répertoire suivant : " & vbNewLine & InputDir)
      Else
        Do While ImportFile <> ""
        FileCount = FileCount + 1
        MsgBox (InputDir & "\" & ImportFile)
        DoCmd.TransferText acImportFixed, "SPECIF", "IMPORTATION_EDI", ImportFile, False
        ImportFile = Dir()
        Loop
      End If
      MsgBox (FileCount & " fichiers EDI ont été importés dans la base.")
End Sub

[gael49]

En fait je viens de trouver le problème, Access ne prend pas les fichiers .EDI, mais en les renommant .TXT ça fonctionne !
Donc il ne me reste plus qu'à trouver comment renommer les fichiers en VBA