Discussion :

[sophiesallee]

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 :

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

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 :

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

[loufab]

Bonjour,

A tu essayer un Doevents entre la ligne d'export et le Call ?

Tu peux utiliser Freefile au lieu de #Numero pour numéroter tes fichiers.

Cordialement,

[sophiesallee]

Bonjour,

Merci d'avoir répondu!

J'ai donc inséré un DoEvents entre l'export et la call mais celui me renvoie 0.
Le problème a été résolu en utilisant freefile au lieu de #Num.
J'ai du oublié de fermer mes fichier # et #2 dans un précédent Open ... for Input as #....

Merci beaucoup!!

[loufab]

Peut importe ce que renvoie Doevents, l'important c'est son action. Remarque pour ce problème il ne t'aurait été d'aucune utilitée.

[loufab]

Doevents permet de finir les travaux en attente avant de continuer l'exécution de la suite du code.

Le problème ne venant pas d'un job non terminé (écriture du fichier en cours au moment de sa réouverture) que tu le mettes ou pas ne change rien.