Conserver les zero non significatifs

divanath Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
divanath Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je cherche à conserver les zero non significatifs de chiffres pour les exporter dans un autre fichier. L'affichage est ok dans excel mais l'export ne reporte pas les zeros.

voici le code:

Range("B:B").NumberFormat = "0.000" 'on bien affiche 100.200
Open FichierCible For Output As #1
Print #1, Left(Range("B" & 12).Value, 7) ' on récupère 100.2
Close #1

Des idées ?

2 réponses

Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

C'est normal,
100.2 est bien la valeur contenue dans la cellule
et
100.200 est le texte formaté dans la cellule.

i.e. il faut écrire :
Print #1, Left(Range("B" & 12).Text, 7)
0
divanath Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Patrick,

merci !!!!! C'est exactement ce que je cherchais !

Bonne journée
Nathalie
0