problème sur un "open filename for input as #1"
Bonjour,
dans mon programme, un message d'erreur s'affiche lors de l'execution d'un "open filenam for input as #1". le message indique que le fichier est déjà ouvert, mais je ne comprends pas pourquoi.
dans un premier temps j'export une table au format csv puis je souhaite modifié ce fichier crée en faisant un open ... for input as #...
voici un bout de code :
Code:
1
2
3
4
| (1) DoCmd.TransferText acExportDelim, , Table6, STK_RESTIT_POUR_CHRGMT
'Table6 un paramètre (nom d'une table de ma base) 'STK_RESTIT_POUR_CHRGMT étant le nom du fichier exporté en csv (paramètré auparavant en .csv)
(2) Call REPLACE_CAR(STK_RESTIT_POUR_CHRGMT) |
'fonction dont voici le code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Public Function REPLACE_CAR(FileName As String) ' , FileDest As String)
Dim ligne As String
FileDest = FileName & "a"
(A) Open FileName For Input As #1
If Dir(FileDest) <> "" Then Kill FileDest
(B) Open FileDest For Output As #2
Do While Not EOF(1)
Line Input #1, ligne
ligne = Replace(ligne, """", "")
Print #2, ligne
Loop
Close #1
Close #2
FileCopy FileDest, FileName
Kill FileDest
End Function |
)
c'est aux lignes (A) et (B) que le message d'erreur apparaît!
quelqu'un aurait-il une réponse à ce problème?
merci d'avance
Sophie
