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