erreur dans mon programme

[sindy]

Bonjour forum

j'ai une erreur type incompatible dans mon programme.
Enfait j'importe des donnée d'un fichier txt ou il ya parfois ERRVAL
c'est la cause meme de l'erreur

est ce que quelqu'un a une idée pour eviter cet erreur
merci d'avance

 

[2passage]

Bonjour,

ben...
on error resume next
Mais c'est quand même sacrément pas joli-joli... Si tu nous en disais un peu plus, voire si tu donnais un fichier exemple, on pourrais surement faire plus...

A+

 

[sindy]

salut 2passage

j'avais fait on error resume next mais ca ne marche pas


Dim var1, var2 as double
Dim ndata as long
Dim i as integer
Open 'C:\\monfichier.txt' For Input As #1
Open 'C:\\toto.txt' For output As #2
Ndata=1
Do While ((Not EOF(1)) And (ndata <= 200))
Input #1, var1,var2
Write #2, var1,var2
ndata = ndata + 1
loop
Close #1

Close #2
[file name=fichier2.zip size=285]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichier2.zip[/file]

 

[2passage]

Bonjour,

Ton code marche tres bien chez moi.. ceci dit l'erreur que tu as vient peut etre du fait que tu déclares var1 er var 2 en numérique donc quand tu tentes de stocker 'ERRVAL' dans var2, ça déconne... essaye
Dim var1 As Double, var2 as variant

A+

 

[sindy]

mais normalement var1 et var2 sont des numeric ERRVAl c'est seleument une erreur

 

[2passage]

Re,

Ces erreurs existent donc, comme tu utilises var1 et 2 pour lire les données, var1 et 2 ne peuvent pas etre toujours numériques... si tu ne veux pas utiliser ces données, tu peux mettre un test pour sauter la ligne ou il y a ERRVAL, mais tant qu'il y aura des 'ERRVAL', il y aura toujours des cas ou var2 n'est pas numérique.

++

 

[salim]

bonsoir à tous

sindy j'ai fait tourner ton code il ne m'a levé aucune erreur j'ai un fichier toto.txt crée et les deux lignes comportant ERRVAL y son bien inscrites avec 0 a la place d ' ERRVAL. Alors ERRVAL n'est peut être pas la source de tes ennuies


salim

 

[sindy]

bonjour forum, 2passage,salim

comment faire un test pour sauter la ligne ou il ya errval?

merci

 

[sindy]

bonjour forum

j'ai appliquer le méme programme sur un autre fichier mais il mélange mes donnée est ce que vous avez une idée

merci [file name=fichier3.zip size=276]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/fichier3.zip[/file]

 

[amandine]

Re
essai ceci



Dim var1, var2, var3 As Double
Dim fic1, fic2 As Integer
Dim ndata As Long
Dim i, j As Integer

fic1 = FreeFile
Open 'C:\\Fichier3.txt' For Input As #fic1
fic2 = FreeFile
Open 'C:\\toto.txt' For Output As #fic2
ndata = 1

Do While ((Not EOF(fic1)) And (ndata <= 200))
Line Input #fic1, var1
j = InStr(1, var1, ' ', vbTextCompare)
On Error Resume Next
var2 = CDbl(Mid(var1, (j + 1)))
var1 = CDbl(Mid(var1, 1, (j - 1)))

Print #fic2, var1, var3
ndata = ndata + 1
Close #fic1

Close #fic2