Discussion :

[clairemabat]

Afin de récupérer un fichier texte et de générer une nouvelle table dans ACCESS 2003, je dois procéder à un remplacement sous Bloc-notes du caractère W de fin de ligne, par un retour chariot CR afin de préserver la cohérence de mon fichier. Les séparateurs de colonnes sont des ; mais les séparateurs de lignes sont des W.
J'ai testé dans le sous-menu [REMPLACER ] AltGr13 pour incorporer le code ASCII de la fonction, mais rien ne se passe. Comment faire ?

[helas]

Sauvegarder le fichier original avant de tester

lance le remplacement du W dans le fichier W.txt

Code :

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

1
2
 
 Call RemplacementW("c:\W.txt")

la routine

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 RemplacementW(fichierSource As String)
 Dim c As String
 
 Open fichierSource For Input As #1
 Open "e:\ok.txt" For Output As #2
 Do Until EOF(1)
  Input #1, c
  c = Replace(c, "W", vbCrLf)
  Print #2, c
 Loop
 Close (1)
 Close (2)
 
 Kill fichierSource
 Name "e:\ok.txt" As fichierSource
 
End Sub

L'importation ne doit pas poser de problèmes avec DoCmd.TransferText