format de fichier non valide

[dwarf17]

bonjour,
je suis passé de excel 2003 à 2007. j'avais une macro qui lisait un fichier texte "*.resdos" avec des "readline" et qui me faisait un fichier "*.xls"
j'ai passé cette macro en 2007 et elle fonctionnait correctement (pensais-je)

le soucis c'est que maintenant, quand je lance cette macro sur une liste de fichier certains fichier ".xls" ne peuvent pas être réouvert et j'ai le message
"format de fichier non valide". ce bug est aléatoire (un coup le fichier #10 ne marche pas: je relance, le #10 est bon mais le #5 ne l'est plus...)

quelqu'un sait-il ce qui peut engendrer cela ?

(d'autre personne de ma boite faisant des transformations de fichiers textes avec des macros et la fonction "convertir" ont les meme soucis)

cordialement
dwarf

[Daniel.C]

Bonjour,

Poste ton code s'il te plait.

[dwarf17]

le code est un peu long mais il n'y a rien d'extraordinaire.
j'ai retenté sur mon disque perso plutot que sur le réseau d'entreprise et pas de soucis : le problème étant aléatoire ça veut pas dire que c'est réglé et de plus ça n'explique pas l'erreur

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
 
Sub lire_res()
 
    Dim interfacetypes(7), file, path, nomfile As String
    Dim nomload, readline As String
    Dim p0, p1, p2, laite2 As Byte
    Dim a, b, c, d, e, f, g As Long
    Dim totf(100), Inter(40) As Long
    Dim total, totc, longitud, taqui, taca As Long
    Dim jo(10000), nomres(10000) As String
    Dim fin, checktype(7) As Boolean
    Dim results(100) As data
    Dim laite, jope As String
    Application.ScreenUpdating = False
    ClasseurName = ActiveWorkbook.Name
    Set Resdos_book = Workbooks(ClasseurName)
 
    interfacetypes(0) = "hook"
    interfacetypes(1) = "hinge"
    interfacetypes(2) = "actu+Yg"
    interfacetypes(3) = "X-fitting"
    interfacetypes(4) = "Z-tie"
    interfacetypes(5) = "Z-fitting"
    interfacetypes(6) = "ground-contact"
    g = 0
    tot = 0
' on stocke les ID de chaque element sous Inter(1), Inter(2)...
    For i = 2 To 37
        g = g + 1
        Inter(g) = Sheets("Format").Cells(i, 3).Value
    Next i
 
        Resdos_book.Activate
        Sheets("Intro").Activate
        nb_cas = Cells(1, 1).Value
 
For k = 1 To nb_cas
    ' Get work path
    file = Sheets("Intro").Cells(7 + k * 2, 2).Value
 
    If file = "" Then
        MsgBox ("There is no first file, nor path")
        End
    End If
 
    p0 = InStrRev(file, "\")
    p1 = InStrRev(file, ".")
    path = Mid(file, 1, p0)
    a = 0
    fin = True
    jo(a) = Dir(path)
    If jo(a) = "" Then fin = False
    a = 0
    While fin <> False
        jo(a) = Dir()
        If jo(a) = "" Then fin = False
        a = a + 1
    Wend
tot = tot + a
Next k
UserForm1.ProgressBar1.Value = 0
progress_unit1 = 100 / (tot + (tot / 100))
 
For k = 1 To nb_cas
 
    ' Get work path
    file = Sheets("Intro").Cells(7 + k * 2, 2).Value
 
    p0 = InStrRev(file, "\")
    p1 = InStrRev(file, ".")
    path = Mid(file, 1, p0)
 
    a = 0
    fin = True
    jo(a) = Dir(path)
    If jo(a) = "" Then fin = False
    a = 1
    While fin <> False
 
        jo(a) = Dir()
        If jo(a) = "" Then fin = False
        a = a + 1
    Wend
 
    total = a - 2
    a = 0
 
    For i = o To total
 
        p2 = InStrRev(jo(i), ".")
        If Mid(jo(i), p2 + 1) = "resdos" Then
            nomres(a) = Mid(jo(i), 1, p2 - 1)
            a = a + 1
        End If
 
    Next i
 
    total = a - 1
 
    ' Open the res files and create the excel files
 
    For j = 0 To total
    UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Value + progress_unit1
 
        'initial value of some variables
 
        Workbooks.Add ' creation of an excel file
        nomfile = path & nomres(j) & ".xls"
 
        ActiveWorkbook.SaveAs Filename:=nomfile, FileFormat:= _
            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
            , CreateBackup:=False
 
        ClasseurName2 = ActiveWorkbook.Name
        Set Current_book = Workbooks(ClasseurName2)
 
' mise en forme
 
        Resdos_book.Activate
        Sheets("Format").Activate
        Range("A1:I42").Select
            Selection.Copy
        Current_book.Activate
        ActiveSheet.Paste
 
        nomload = path & nomres(j) & ".resdos"
 
        Open nomload For Input As #1
 
        While EOF(1) <> True
        Line Input #1, readline
        p0 = InStr(1, readline, " ")
        test = Val(Mid(readline, 1, p0))
        For i = 1 To 36
            If test = Inter(i) Then
                If test = 4079060 Or test = 4079560 Then
                    p1 = InStr(p0 + 1, readline, " ")
                    p2 = InStr(p1 + 1, readline, " ")
                    node = Val(Mid(readline, 1, p0))
                    fx = Val(Mid(readline, p0 + 1, p1 - p0 - 1))
                    fy = Val(Mid(readline, p1 + 1, p2 - p1 - 1))
                    fz = Val(Mid(readline, p2 + 1))
                    Current_book.Activate
                    ActiveSheet.Cells(i + 1, 4).Value = fx
                    ActiveSheet.Cells(i + 1, 6).Value = fz
                    ActiveSheet.Cells(i + 1, 7).Value = "=sqrt(RC[-3]^2+RC[-2]^2+RC[-1]^2)"
                    ActiveSheet.Cells(i + 19, 5).Value = fy
                    ActiveSheet.Cells(i + 19, 7).Value = "=sqrt(RC[-3]^2+RC[-2]^2+RC[-1]^2)"
                Else
                p1 = InStr(p0 + 1, readline, " ")
                p2 = InStr(p1 + 1, readline, " ")
                node = Val(Mid(readline, 1, p0))
                fx = Val(Mid(readline, p0 + 1, p1 - p0 - 1))
                fy = Val(Mid(readline, p1 + 1, p2 - p1 - 1))
                fz = Val(Mid(readline, p2 + 1))
                Current_book.Activate
                ActiveSheet.Cells(i + 1, 4).Value = fx
                ActiveSheet.Cells(i + 1, 5).Value = fy
                ActiveSheet.Cells(i + 1, 6).Value = fz
                ActiveSheet.Cells(i + 1, 7).Value = "=sqrt(RC[-3]^2+RC[-2]^2+RC[-1]^2)"
                End If
            Else
            End If
        Next i
        Wend
 
    Close #1
 
      Current_book.Close SaveChanges:=True
 
           Next j
Next k
MsgBox "Extraction Ok", vbOKOnly
UserForm1.Hide
 
        Resdos_book.Activate
        Sheets("Intro").Activate
    Range("B9:B23").Select
    Selection.Copy
    Range("J9").Select
    ActiveSheet.Paste
    Range("B9:B23").Clear
 
End Sub

voila

[jfontaine]

Bonjour,

Et sur quelle ligne as tu le message d'erreur ?

Corrige la déclaration de tes variables car sur la ligne ci dessous seul g est de type long, les autres de type variant

Code :

Dim a, b, c, d, e, f, g As Long

Bonne déclaration

Code :

Dim a Long, b, as Long, c as Long ..

[dwarf17]

le problème est bien là, je n'ai aucun message d'erreur ,(c'est pour ça que j'ai hésité à donner le code) : la macro tourne sans erreur et pourtant certain des fichiers excel de sortie ne peuvent pas être ouvert.

est-ce que cela innocente VBA et incrimine notre réseau informatique ?

(merci pour la déclaration des variables)