Convertir un fichier .xls en .txt

Bonjour,

Je bloque depuis un bon moment sur le problème suivant:

Je cherche à transformer un onglet d'un fichier excel en un fichier txt mais j'ai un problème. Voici le code que j'ai quand j'enregistre une macro pour faire :Fichier => enregistrer sous => type: Texte (séparateur: tabulation)

Sub Macro2()

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\Desktop\ENR\A0000256.txt", FileFormat:=xlText, _

CreateBackup:=False

End Sub

Quand on le fait " à la main " pas de problème mais quand je lance la macro les virgules se transforment en point dans le txt! J'ai regardé beaucoup de sujets et personne n'évoque ce problème précisément.

Quelqu'un peut-il m'aider?

ci joint le fichier excel

C'est un problème avec les virgules que tu as ?

Personnellement j'ai fais la même manip, ça apparaît bien en virgule les valeurs. (Peut importe la forme d'enregistrement texte, unicode, séparateur tab etc...)

Oui c'est bien ca!

Ci joint le fichier que j'obtiens avec la macro..

Bonjour,

Un code qui provient du dernier poste de la page 2 de ce thread : https://forum.excel-pratique.com/excel/exportation-de-fichiers-txt-t38693-10.html

Reste à adapter ...

    Sub Export()
    Dim Plage As Object, oL As Object, oC As Object, Sep$, Tmp$
    Dim FileN As String
    FileN = Sheets("A0000256").Range("Z1")  'Nom du fichier créé
    Sep = vbTab
    With Worksheets(1)
    Set Plage = .Range("A11:f111")
    End With
    FileN = ThisWorkbook.Path & "\" & FileN
    Open FileN & ".txt" For Output As #1
    For Each oL In Plage.Rows
    Tmp = ""
    For Each oC In oL.Cells
    Tmp = Tmp & CStr(oC.Text) & Sep
    Next
    Print #1, Tmp
    Next
    Close
    End Sub

Gelinotte

Génial merci beaucoup ça fonctionne ! Je vais gagner des heures entières

Je mets ma macro finale qui boucle sur n onglets et qui sélectionne une plage de donnée définie pour ceux que ça peut intéresser.