econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 11 oct. 2004 à 21:21
Yeah !! Carrément mieux que d'habitude.
Bon, y'a cette ligne qui est un peu ... hum ... pas terrible :
Open pa + strL For Input As #98
Il vaut mieux :
Dim num As Long
num = FreeFile
Open "toto.txt" for Input As #num
Parce que si par malchance (et çà arrive), le 98ème canal est occupé par quelque chose ou quelqu'un, ben ton programme plante.
FreeFile te permet d'obtenir un numéro de fichier libre.
Bonne continuation
vpcorpprog
Messages postés36Date d'inscriptionmardi 9 mars 2004StatutMembreDernière intervention18 octobre 2005 11 oct. 2004 à 18:30
Je m'excuse si il y a autant de fichiers mais il ya que l'application en exe qui fonctionne pas les frm
11 oct. 2004 à 21:21
Bon, y'a cette ligne qui est un peu ... hum ... pas terrible :
Open pa + strL For Input As #98
Il vaut mieux :
Dim num As Long
num = FreeFile
Open "toto.txt" for Input As #num
Parce que si par malchance (et çà arrive), le 98ème canal est occupé par quelque chose ou quelqu'un, ben ton programme plante.
FreeFile te permet d'obtenir un numéro de fichier libre.
Bonne continuation
11 oct. 2004 à 18:30