Bonjour!!
j'ai ce bout de code !!! à chaque fois un pb de type mismatch pour
Open FileiniName For Input As #1
Do While EOF(1) = False
Line Input #1, ligne
If Mid(ligne, 1, 1) = "L" Then
val_line = Split(ligne, "=")
val_Line1 = Split(val_line(1), ";") 'ligne de pb
End If
Loop
Close
en fait j'ai une ligne de la forme : ligne N° 1 = 1;toto;2
et à chaque ligne je veux : tester que la ligne extraire et d'extraire les valeur de 1 , toto et 1
21 nov. 2007 à 13:27
j'ai ce bout de code !!! à chaque fois un pb de type mismatch pour
Open FileiniName For Input As #1
Do While EOF(1) = False
Line Input #1, ligne
If Mid(ligne, 1, 1) = "L" Then
val_line = Split(ligne, "=")
val_Line1 = Split(val_line(1), ";") 'ligne de pb
End If
Loop
Close
en fait j'ai une ligne de la forme : ligne N° 1 = 1;toto;2
et à chaque ligne je veux : tester que la ligne extraire et d'extraire les valeur de 1 , toto et 1
je comprend pas ce bug
Merci de m'aider
24 sept. 2003 à 06:33
J'ai fais comme tu as dis : Mettez cette function dans un module et vous l'utiliserez tot ou tard.