Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Enregistrement en txt avec séparateur ;

Enregistrement en txt avec séparateur ;

5 réponses
Avatar
arnaud
Bonjour à tous !
Help !

je dois enregistrer un fichier Excel en .txt mais j'aimerai que le
séparateur soit le ; (je ne veux pas de l'extension .csv !!!)

Actuellement, c'est la tabulation et ça me convient pas !! (intégration des
données dans un autre logiciel)

Sheets("ARTICLES").Copy
ActiveWorkbook.SaveAs
Filename:="C:\VENTPART\PRIVE\ARTICLES_GAMME_DEVIS.txt" _
, FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close

S'il y a une solution simple VBA pour mon cas, ça m'arrangerait !!

Merci à tous !!
Arnaud
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

Quelques exemples par là:

http://groups.google.com/groups?q=for+output+group:microsoft.public.fr.excel+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&selm=uncpe5T%23CHA.2920%40TK2MSFTNGP11.phx.gbl&rnum=2

--
On apprend pas à un vieux singe à faire des grimaces
"arnaud" a écrit dans le message de
news:
Bonjour à tous !
Help !

je dois enregistrer un fichier Excel en .txt mais j'aimerai que le
séparateur soit le ; (je ne veux pas de l'extension .csv !!!)

Actuellement, c'est la tabulation et ça me convient pas !!
(intégration des

données dans un autre logiciel)

Sheets("ARTICLES").Copy
ActiveWorkbook.SaveAs
Filename:="C:VENTPARTPRIVEARTICLES_GAMME_DEVIS.txt" _
, FileFormat:=xlText, CreateBackup:úlse
ActiveWorkbook.Close

S'il y a une solution simple VBA pour mon cas, ça m'arrangerait !!

Merci à tous !!
Arnaud




Avatar
arnaud
Est ce que je pourrais enregistrer mon fichier en csv simplement, puis
renommer ce fichier en .txt via le VBA Excel ??

Quelle ligne de commande taper ??

Merci d'avance !
Arnaud


"Clément Marcotte" a écrit dans le message
de news: #
Bonjour,

Quelques exemples par là:


http://groups.google.com/groups?q=for+output+group:microsoft.public.fr.excel

+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&selm=uncpe5T%23CHA.2920%40
TK2MSFTNGP11.phx.gbl&rnum=2

--
On apprend pas à un vieux singe à faire des grimaces
"arnaud" a écrit dans le message de
news:
Bonjour à tous !
Help !

je dois enregistrer un fichier Excel en .txt mais j'aimerai que le
séparateur soit le ; (je ne veux pas de l'extension .csv !!!)

Actuellement, c'est la tabulation et ça me convient pas !!
(intégration des

données dans un autre logiciel)

Sheets("ARTICLES").Copy
ActiveWorkbook.SaveAs
Filename:="C:VENTPARTPRIVEARTICLES_GAMME_DEVIS.txt" _
, FileFormat:=xlText, CreateBackup:úlse
ActiveWorkbook.Close

S'il y a une solution simple VBA pour mon cas, ça m'arrangerait !!

Merci à tous !!
Arnaud







Avatar
arnaud
Finalement, j'ai enregistré mon fichier en csv et je l'ai renommé ensuite en
txt !


ActiveWorkbook.SaveAs Filename:="C:VENTPARTPRIVEARTICLES TRAITES.csv",
_
FileFormat:=xlCSV, CreateBackup:úlse

OldName = "C:ARTICLES TRAITES.csv"
NewName = "C:ARTICLES_GAMME_DEVIS.txt"
ActiveWorkbook.Close
Name OldName As NewName

Merci !
Arnaud



"arnaud" a écrit dans le message de news:

Bonjour à tous !
Help !

je dois enregistrer un fichier Excel en .txt mais j'aimerai que le
séparateur soit le ; (je ne veux pas de l'extension .csv !!!)

Actuellement, c'est la tabulation et ça me convient pas !! (intégration
des

données dans un autre logiciel)

Sheets("ARTICLES").Copy
ActiveWorkbook.SaveAs
Filename:="C:VENTPARTPRIVEARTICLES_GAMME_DEVIS.txt" _
, FileFormat:=xlText, CreateBackup:úlse
ActiveWorkbook.Close

S'il y a une solution simple VBA pour mon cas, ça m'arrangerait !!

Merci à tous !!
Arnaud




Avatar
Clément Marcotte
Bonjour,

Tu peux mettre le nom et l'extension que tu veux dans le nom du
fichier:

la ligne Open "nom du fichier.txt" for output as 1.

Le problème c'est que l'Enregistrer sous en format texte d'Excel,
c'est de la vraie cochonnerie.



--
On apprend pas à un vieux singe à faire des grimaces
"arnaud" a écrit dans le message de
news:
Est ce que je pourrais enregistrer mon fichier en csv simplement,
puis

renommer ce fichier en .txt via le VBA Excel ??

Quelle ligne de commande taper ??

Merci d'avance !
Arnaud


"Clément Marcotte" a écrit dans le
message

de news: #
Bonjour,

Quelques exemples par là:




http://groups.google.com/groups?q=for+output+group:microsoft.public.fr.excel


+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&selm=uncpe5T%23CHA.2

920%40
TK2MSFTNGP11.phx.gbl&rnum=2

--
On apprend pas à un vieux singe à faire des grimaces
"arnaud" a écrit dans le message
de


news:
Bonjour à tous !
Help !

je dois enregistrer un fichier Excel en .txt mais j'aimerai que
le



séparateur soit le ; (je ne veux pas de l'extension .csv !!!)

Actuellement, c'est la tabulation et ça me convient pas !!
(intégration des

données dans un autre logiciel)

Sheets("ARTICLES").Copy
ActiveWorkbook.SaveAs
Filename:="C:VENTPARTPRIVEARTICLES_GAMME_DEVIS.txt" _
, FileFormat:=xlText, CreateBackup:úlse
ActiveWorkbook.Close

S'il y a une solution simple VBA pour mon cas, ça m'arrangerait
!!




Merci à tous !!
Arnaud











Avatar
arnaud
Tu as raison, mon fichier csv, il l'enregistre mais avec des virgules comme
séparateur !!!!!
ça ne me convient pas du tout !!






"Clément Marcotte" a écrit dans le message
de news: #
Bonjour,

Tu peux mettre le nom et l'extension que tu veux dans le nom du
fichier:

la ligne Open "nom du fichier.txt" for output as 1.

Le problème c'est que l'Enregistrer sous en format texte d'Excel,
c'est de la vraie cochonnerie.



--
On apprend pas à un vieux singe à faire des grimaces
"arnaud" a écrit dans le message de
news:
Est ce que je pourrais enregistrer mon fichier en csv simplement,
puis

renommer ce fichier en .txt via le VBA Excel ??

Quelle ligne de commande taper ??

Merci d'avance !
Arnaud


"Clément Marcotte" a écrit dans le
message

de news: #
Bonjour,

Quelques exemples par là:






http://groups.google.com/groups?q=for+output+group:microsoft.public.fr.excel


+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&selm=uncpe5T%23CHA.2

920%40
TK2MSFTNGP11.phx.gbl&rnum=2

--
On apprend pas à un vieux singe à faire des grimaces
"arnaud" a écrit dans le message
de


news:
Bonjour à tous !
Help !

je dois enregistrer un fichier Excel en .txt mais j'aimerai que
le



séparateur soit le ; (je ne veux pas de l'extension .csv !!!)

Actuellement, c'est la tabulation et ça me convient pas !!
(intégration des

données dans un autre logiciel)

Sheets("ARTICLES").Copy
ActiveWorkbook.SaveAs
Filename:="C:VENTPARTPRIVEARTICLES_GAMME_DEVIS.txt" _
, FileFormat:=xlText, CreateBackup:úlse
ActiveWorkbook.Close

S'il y a une solution simple VBA pour mon cas, ça m'arrangerait
!!




Merci à tous !!
Arnaud