Tranfert Fichier Texte dans une nouvelle Table Access

Question

Bonjour &#224; tous !

1&#176;) 1 &#232;re Question

J'aimerai vous poser une question toute simple , je le sais par avance mais je la pose. Je g&#232;re actuellement une base Access, chaque mois des fichiers ''Texte'' sont import&#233;s automatiquement par l'aide du formulaire dans ma base. J'ai pour l'heure actuelle deux fichiers texte ("CamEpCon" et "CamHpCon") qui s'exporte tr&#232;s correctement dans ma base. Quand je dis exporter s'est cr&#233;e une nouvelle table au sein d'Access pour ces deux fichiers.
 

Public Sub ImportationFichiersEPHP()
Dim StrFichier As String
Dim ret

On Error GoTo Err_ImportationFichiersephp

Dim specdossier As String
Dim fs, f, f1, fc, s
Dim boolEP As Boolean
Dim boolHP As Boolean

DoCmd.Hourglass (True)


Set rsparam CurrentDb.OpenRecordset("SELECT Path FROM Param_Systeme where NomParam 'Import'", , dbReadOnly)
specdossier = rsparam.Fields("Path").Value  ' "e:\comintex\import"

DoCmd.DeleteObject acTable, "CamEpCon_Importerrors"
DoCmd.DeleteObject acTable, "CamHpCon_Importerrors"
DoCmd.DeleteObject acTable, "CamEpCon"
DoCmd.DeleteObject acTable, "CamHpCon"

' Indication pour importer les fichiers (chemin)

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(specdossier)
Set fc = f.Files
boolHP = False
boolEP = False


'Pour chaque fichier su situant dans le dossier import : test


For Each f1 In fc
' ***********************************************
    If f1.Name = "CamEpCon.txt" Then
      StrFichier = specdossier & "" & f1.Name
      Application.DoCmd.TransferText acImportDelim, "Import_CamEpCon", "CamEpCon", StrFichier, True
      MsgBox "Fichier CamEPCon bien import&#233;", , "Importation Fichier Texte"
      boolEP = True
    End If
    If f1.Name = "CamHpCon.txt" Then
      StrFichier = specdossier & "" & f1.Name
      DoCmd.TransferText acImportDelim, "Import_CamHpCon", "CamHpCon", StrFichier, True
      MsgBox "Fichier CamHPCon bien import&#233;", , "Importation Fichier Texte"
      boolHP = True
    End If

Je choisi donc de faire la m&#234;me mani&#232;re pour mon nouveau fichier que je nomme "CamCon" en rempla&#231;ant par le nom CamCon. L'export ne se produit pas car une erreur s'affiche :
 

Erreur 3625 : La sp&#233;cification des fichiers texte 'Import_CamCon' n'existe pas.  Vous ne
pouvez pas importer, exporter ou lier en utilisant cette sp&#233;cification.
 

Je suis donc un peu surpris de ce qui se passe. Que faire ?

2&#176;) 2 eme Question

Dans un deuxi&#232;me cas, je me suis amuser &#224; l'importer manuellement par la fonction Fichier =>  Import . Lors de cette import le Fichier Texte en nouvelle Table access rencontre des probleme et ne prends pas tous les champs d'une m&#234;me colonne . A quoi cela peut &#234;tre d&#251; ? Sachant que l'ensemble de la colonne a les memes propri&#233;t&#233;s et que ces certains codent seulement qui ne sont pas transmis dans la table Access.

Patrick

cs_vpoyo · Answer

Salut :)

   il n'y aurait dans ton fichier un caract&#232;re g&#234;nant par hazard. style une quote (simple ou double) ou un caract&#232;re qui pourrait servir de s&#233;parateur : virgule, point virgule, tabulation, ...
un caract&#232;re qui ferait partit des "donn&#233;es" et qui est vu autrement.

Vincent

pataccess · Answer

Et bien l&#224; jsutement je ne sais pas quand je met le s&#233;parateur manuellement ca marche car je met format Texte pour tout mais autrement ca ne fonctionne pas !!

Patrick

cs_vpoyo · Answer

Ouvre les fichiers dans notepad (blocnote), un qui marche et l'autre qui marche pas, et essaye d'analyser les diff&#233;rences, s'il s'agit d'un pb de s&#233;parateur, je pense qu'il est possible d'en fix&#233; un par code ou au niveau de la requ&#234;te

Tranfert Fichier Texte dans une nouvelle Table Access

3 réponses

Discussions similaires