Chiffres erronés

chit62 Messages postés 4 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 4 juillet 2004 - 3 juil. 2004 à 15:52
chit62 Messages postés 4 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 4 juillet 2004 - 4 juil. 2004 à 09:49
bonjour à tous voila j'ai fait un petit programme qui calcul avec une variable de type variant tous fonctionne normalement j'ai bien des chiffres avec des virgules ensuite j'enregistre le résultat dans un fichier que je créer à l'issue

CheminFich = "C:\reglage"
'Ouvre un nouveau fichier et enregistre le texte dedans
Dim NumFich: NumFich = FreeFile
Dim NomFich: NomFich = CheminFich & "" & "impb" & ".dpx"
Open NomFich For Output As NumFich
Print #NumFich, reglh3
Print #NumFich, reglv3
Close #NumFich 'ferme le fichier
quand j'ouvre le fichier et que je récupere les chiffres (à virgules) tous mes calculs sont érronés car la partie décimale prend la place de la partie entier
exemple au départ j'ai 12,89 et 68,45 àlaréouverture du fichier cela donne dans reglh3=12 et reglv3=89
que faire je perds la tête
merçi pour une aide

2 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
4 juil. 2004 à 00:52
Je suppose que tu fais ta relecture par un "Input ".
Essaye donc avec un "Line Input", cela fonctionnera mieux

Christophe R.
0
chit62 Messages postés 4 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 4 juillet 2004
4 juil. 2004 à 09:49
c'est trop puissant merçi à toi crenaud76 de ton aide et vive le forum :big)
0
Rejoignez-nous