Hello,

J'ai un gros souci

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