Bonjour, j'ai réalisé une macro qui exporte un fichier xls en txt.

Je n'ai pas de séparateur entre les colonnes, mais un nombre de caractères donnés pour chacune des colonnes.

Mon problème est que, pour les cellules dont la valeur est 0,00 dans le fichier xls, le résultat en txt devient 0

Auriez-vous une idée pour contrer ceci ?

Merci d'avance ...

Code pour le format de cellule excel :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("monsheet").Range("X" & i).NumberFormat = "0.00"
exportation :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub xlsTOtxt()
 
Dim i As Long
 
FichierCible = Application.GetSaveAsFilename("montxt", "Fichier texte (*.txt), (*.txt)")
 
If FichierCible = False Then Exit Sub
 
Open FichierCible For Output As #1
 
If FichierCible <> False Then
 
Sheets("monsheet").Select
For i = 2 To Range("A:A").End(xlDown).Row
 
                Print #1, Left(Range("X" & i).Value, 10) & Space(10 - Len(Left(Range("X" & i).Value, 10)))