Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Sauvegarde en .txt

  • Initiateur de la discussion Initiateur de la discussion jc73
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jc73

Guest
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

U
Réponses
2
Affichages
6 K
UWCorp
U
R
Réponses
3
Affichages
5 K
genialo4000
G
I
Réponses
7
Affichages
2 K
iStarOSX
I
B
Réponses
3
Affichages
2 K
beaf77
B
K
Réponses
3
Affichages
2 K
Knight of Ni
K
M
Réponses
5
Affichages
2 K
A
Réponses
5
Affichages
4 K
A
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…