Discussion :

[Asdorve]

Bonjour,

voici tout d'abord mon 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
intFile = FreeFile
intFile2 = FreeFile

Open Pathname & "FicProd1.csv" For Append As #intFile
Open Pathname & "FicProd2.csv" For Append As #intFile2

Do Until rsADO.EOF
    
    CompanyId1 = "25001" & String(25 - Len("25001"), " ")
    CompanyId2 = "72401" & String(25 - Len("72401"), " ")
     
    Print #intFile, CompanyId1 & rsADO!enreg
    Print #intFile2, CompanyId2 & rsADO!enreg
    rsADO.MoveNext
Loop
Close #intFile
Close #intFile2

J'ai un message d'erreur sur la ligne rouge: "Fichier déjà ouvert".
Selon l'aide en ligne, "une instruction Open en mode de sortie séquentielle a été exécutée pour un fichier déjà ouvert".

Comment est-ce que je peux faire?

MErci d'avance

[SfJ5Rpw8]

modifie l'ordre de tes lignes... lorsque tu te sert "FreeFile" pour avoir un numéro de fichier libre.. il faut utiliser le numéro (c'est logique si tu ne l'utilise pas il est toujours libre..) .. avec un open par exemple avant de faire un nouveau freefile...

Code :

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

1
2
3
4
5
 
intFile = FreeFile
Open Pathname & "FicProd1.csv" For Append As #intFile
intFile2 = FreeFile
Open Pathname & "FicProd2.csv" For Append As #intFile2

[Asdorve]

super merci beaucoup bbil

c'était tout simple, mais il fallait le savoir.


@ +