Sauvegarde en .txt

[jc73]

Bonjour,

Lorsque l'on réalise un "enregistré sous" d'une feuille Excel en .txt et que l'on rouvre ce même fichier avec Notepad ou Wordpad, les chiffres comportant des virgules (ex : 2,50) sont conservées sous le même format.
Par contre, lorsque l'on réalise la même opération, mais avec une macro, le format est modifié et les virgules remplacées par des "." (2,50 se transforme en 2.50)
J'ai essayé de modifier les paramètres dans "Outils/Options/International" ainsi que sur le PC "Options régionales" - de modifier le format de la cellule (format texte comme format normal) - mais rien ne fonctionne. Si la cellule est en format texte, la valeur devient : "2,50" (avec les accolades...)
Si quelqu'un a la solution, je suis preneur, car je dois automatiser un traitements de fichiers et générer environ 1500 fichiers ! ! !

Cordialement,

jc73

 

[tototiti2008]

Re : Sauvegarde en .txt

Bonjour jc73,

à tester :

    ActiveWorkbook.SaveAs Filename:= _
        "C:\test\Classeur13.txt", _
        FileFormat:=xlText, CreateBackup:=False, [COLOR=red]Local:=True[/COLOR]

 

[jc73]

Re : Sauvegarde en .txt

Bonsoir,

Un grand merci pour votre réponse, et vous voudrez bien m'excuser pour avoir tardé à répondre, mais j'étais en déplacement.
Je viens d'essayer le code que vous citez ci-dessus et au premier abord, il ne fonctionnait pas...
Par contre, une fois supprimé la seconde sauvegarde donnée par l'enregistreur de macro (j'avais enregistré cette macro rapidement si éventuellement vous me demandiez mon code), cela semble fonctionner à merveille ! ! !

Mon code initial :
Sub Macro1()
Workbooks.OpenText Filename:= _
"D:\documents and Settings\...\204018001.xls" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\documents and Settings\...\204018001.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False, local:=True
ActiveWorkbook.Save
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Le code modifié :
Sub Macro1()
Workbooks.OpenText Filename:= _
"D:\documents and Settings\...\204018001.xls" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"D:\documents and Settings\...\204018001.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False, local:=True
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub

Un grand merci. J'essaye demain en vraie grandeur sur mon application.

Cordialement,

jc73

 

[jc73]

Re : Sauvegarde en .txt

Bonjour,

Juste pour vous confirmer que tout fonctionne.
Merci beaucoup.

Cordialement,

jc73