Macro : enregistrer un .txt et nombres à virgules

Bonjour à tous,

Je souhaite exporter certaines informations présentes dans un fichier Excel vers des fichiers .txt afin de les importer dans mon logiciel de facturation.

Seul problème, mes données contenant des chiffres à "," sont automatiquement renommées en "." et mon logiciel de facturation n'aime pas du tout ça

J'ai eu beau cherché ici et sur le net, je n'ai rien trouvé.

Voici le code en question :

Sub Macro()

Application.ScreenUpdating = False
Dim x, i As Integer
x = ThisWorkbook.Sheets.Count

    For i = 4 To x

    Sheets(i).Activate
    Dim nom
    nom = ActiveSheet.Name
    Range("A1:D36").Select
    Range("D36").Activate
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Finplein\" & nom & ".txt", FileFormat:=xltxt, _
        CreateBackup:=False
        Application.DisplayAlerts = False
        ActiveWorkbook.Close
        Application.DisplayAlerts = True

     Next

End Sub

Auriez-vous une idée ou une astuce pour que je puisse m'en sortir?

je vous remercie d'avance pour votre aide

Bonjour,

tester avec le paramètre Local:=True de la méthode SaveAs …

C'est parfait !

Merci beaucoup