Export dans un fichier texte en conservant le format

[goulabf9]

Bonjour,

J'ai une macro excel qui écrit dans un fichier texte. Voici le bout qui écrit:

For i = 1 To derniereligne
Print #1, Format(ActiveSheet.Cells(i, 1).Value, "dd/mm/yyyy"); ";"; _
ActiveSheet.Cells(i, 2).Value; ";"; _
ActiveSheet.Cells(i, 3).Value; ";"; Format(ActiveSheet.Cells(i, 4).Value, "0.0000"); _
";"; Format(ActiveSheet.Cells(i, 5).Value, "0.00")
Next

J'ai ajouté une commande format pour conserver le format apparent dans excel mais ca ne marche pas.
Dans excel j'ai des dates dans la premiére colonne au format dd/mm/yyyy mais dans le texte ils deviennent dd.mm.yyyy

Pour les nombres le format apparent est avec , comme séparateur de décimale mais je souhaiterais un point. Ma commande format ne produit pas non plus de bon résultat dans ce cas-lá

Merci de votre aide,

Fabien

 

[goulabf9]

Re : Export dans un fichier texte en conservant le format

Je précise que j'ai essayé la commande suivante

valeur = Replace(ActiveSheet.Cells(i, 5).Value, ",", ".")

ca permet bien d'écrire un point á la place de la virgule mais en revanche, ca ne maintient pas les deux décimales.


Fabien

 

[goulabf9]

Re : Export dans un fichier texte en conservant le format

Résolu avec un code peu élégant qui exporte, importe puis reexeporte le texte:

Private Sub Export_Citrix_Click()
Dim derniereligne As Integer, i As Integer
Dim j As Integer

Sheets("Export Citrix").Select
derniereligne = ActiveSheet.Range("F51").Value

Open "c:/export_citrix.csv" For Output As 1

For i = 1 To derniereligne
Print #1, Format(ActiveSheet.Cells(i, 1).Value, "dd/mm/yyyy"); ";"; _
ActiveSheet.Cells(i, 2).Value; ";"; _
ActiveSheet.Cells(i, 3).Value; ";"; Format(ActiveSheet.Cells(i, 4).Value, "0.0000"); _
";"; Format(ActiveSheet.Cells(i, 5).Value, "0.00")
Next

Close

Open "c:/export_citrix.csv" For Input As 1
i = 1
While Not EOF(1)
Line Input #1, a
'Copie des lignes dans excel
ActiveSheet.Cells(i, 8).Value = a
i = i + 1
Wend
Close

ActiveSheet.Columns("H:L").Select
Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Open "c:/export_citrix.csv" For Output As 1
For i = 1 To derniereligne
'valeur = Replace(ActiveSheet.Cells(i, 5).Value, ",", ".")
Print #1, ActiveSheet.Cells(i, 8).Value
Next
Close

End Sub


Fabien