Extraire fichier texte d'une feuille Conservation du format

[PoLO_92]

Bonjour,

J'ai un problème avec ma macro au moment d'extraire une feuille excel en fichier texte.
"L'impression" avec print fonctionne mais les formats ne sont pas conservés.
Par exemple : 0.0160944096675825 devient 1.60944096675825E-02 dans le fichier texte.
Or je veux conserver le format décimal et ne veux pas de l'écriture scientifique.
Voilà la partie du code qui extrait :

Code: Tout sélectionner


Dim C As Variant
Dim fFilename As String
Dim a As Variant, b As Variant
Dim tmP As String
Dim Separateur As String

Separateur = vbTab
With Worksheets(2)
C = Range("A1:J" & DerLig3)
End With

fFilename = _
Application.GetSaveAsFilename(InitialFileName:=Ini(0) & "---" & Ini(1), _
fileFilter:="Text Files (*.txt), *.txt")

Open fFilename For Output As #1

For a = 1 To UBound(C, 1)
tmP = ""
For b = 1 To UBound(C, 2)
If tmP > "" Then
tmP = tmP & Separateur & C(a, b)
Else
tmP = C(a, b)
End If
Next
Print #1, tmP
Next
Close #1
Erase C
 

J'ai cherché comment conserver le format mais en vain...
Je voudrais que les données que je récupère dans le fichier texte soient les mêmes que dans excel.

Merci d'avance à ceux qui pourront m'éclairer !


-- 28 Avr 2011, 14:42 --

Pb résolu.... !

[dubois]

Bonsoir,

Pb résolu.... !
comment ?

çà aurait pu intéresser quelqu'un !

Amicalement
Claude

[PoLO_92]

Alors comme je n'ai pas réussi à modifier les formats, j'ai changé de méthode ...
Solution :

Copier la feuille dans un nouveau classeur
Enregister sous ce classeur au format texte
Plus simple et résultat attendu !