Bonjour,
voici tout d'abord mon code:
J'ai un message d'erreur sur la ligne rouge: "Fichier déjà ouvert".
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
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
Partager