Extraire fichier texte d'une feuille Conservation du format

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 :

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.... !

Bonsoir,

Pb résolu.... !

comment ?

çà aurait pu intéresser quelqu'un !

Amicalement

Claude

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 !