[VBA] Ouvrir plusieurs fichiers textes depuis Excel
Hello,
J'ai un gros souci :oops:
Dans ma routine, je cherche à importer des valeurs depuis un fichier weigth.txt, faire des calculs dans Excel puis inscrire les résulats dans un nouveau fichier Junk.txt. Le problème c'est qu'il me semble être impossible d'ouvrir plusieurs fichiers en même temps. Ca me paraît surprenant mais je reçoit le message d'erreur: 'fichier déjà ouvert' lorsque j'essaie d'ouvrir le fichier junk avec le fichier weight déjà ouvert...
Quelqu'un a-t-il une solution?
Voilà mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
Option Explicit
Const ML_PATH = "C:weight.txt"
Const sheet = "Perf"
Sub optimweights_txt2()
Dim monTab() As String
Dim ligne As String
Dim temp As String, var As String
Dim iFileNum As Long
Dim strDestFile As String
Dim poids(10)
Dim i As Integer
Worksheets(sheet).Select
Application.ScreenUpdating = False
strDestFile = "c:JUNK.txt"
iFileNum = FreeFile
Open strDestFile For Output As #iFileNum
var = "Column1; Column2; Column3; Column4"
Write #iFileNum, var
Open ML_PATH For Input Access Read As 1
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, ligne
MsgBox ligne
monTab = Split(ligne, ";")
'convert string to double
For i = 0 To 9
poids(i) = Val(monTab(i))
Next i
Worksheets(sheet).Range("A2:J2").Value = poids()
Calculate
temp = Cells(3, 14).Value & ";" & Cells(3, 15).Value & ";" & Cells(3, 16).Value & _
";" & Cells(3, 17).Value
Write #iFileNum, temp
Loop
Close #1
Close #iFileNum
End Sub |
