Conserver les zero non significatifs

divanath Messages postés 2 Statut Membre -  
divanath Messages postés 2 Statut Membre -
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

  1. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 784
     
    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
  2. divanath Messages postés 2 Statut Membre
     
    Bonjour Patrick,

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

    Bonne journée
    Nathalie
    0