J'ai trouvé une macro sur Internet qui me permet d'exporter chacune de
mes feuilles Excel dans un fichier texte.
Elle fonctionne parfaitement, mais le seul problème est qu'une fois le
fichier texte exporté, mon symbole décimale et devenu un point.
Le plus étrange, c'est que si je fais l'opération à la main,
(Fichier...Enregister sous..etc...) le symbole décimal dans mon
fichier texte reste une virgule.
Quelqu'un aurait-il une solution pour que ma macro conserve la virgule
comme symbole décimal ?????
Merci
Voici au cas ou le code
****************
Sub ExportTXT()
Dim newWks As Worksheet
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'to a new workbook
Set newWks = ActiveSheet
With newWks
.SaveAs Filename:="G:\TEST-GREG\Export\" & wks.Name,
FileFormat:=xlText
.Parent.Close savechanges:=False
End With
Next wks
MsgBox "Exportation réalisé avec SUCCES"
'MsgBox "done with: " & ActiveWorkbook.Name
J'ai trouvé une macro sur Internet qui me permet d'exporter chacune de
mes feuilles Excel dans un fichier texte.
Elle fonctionne parfaitement, mais le seul problème est qu'une fois le
fichier texte exporté, mon symbole décimale et devenu un point.
Le plus étrange, c'est que si je fais l'opération à la main, (Fichier...Enregister sous..etc...) le symbole décimal dans mon fichier texte reste une virgule.
Quelqu'un aurait-il une solution pour que ma macro conserve la virgule
comme symbole décimal ?????
Merci
Voici au cas ou le code. **************** Sub ExportTXT()
Dim newWks As Worksheet Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets wks.Copy 'to a new workbook Set newWks = ActiveSheet With newWks .SaveAs Filename:="G:TEST-GREGExport" & wks.Name, FileFormat:=xlText .Parent.Close savechanges:úlse End With Next wks
MsgBox "Exportation réalisé avec SUCCES" 'MsgBox "done with: " & ActiveWorkbook.Name
"bilbao" <bil.bao@freesurf.ch> a écrit dans le message de
news:65633238.0404290752.23ceb05f@posting.google.com...
Bonjour à toutes et tous...
J'ai trouvé une macro sur Internet qui me permet d'exporter chacune
de
mes feuilles Excel dans un fichier texte.
Elle fonctionne parfaitement, mais le seul problème est qu'une fois
le
fichier texte exporté, mon symbole décimale et devenu un point.
Le plus étrange, c'est que si je fais l'opération à la main,
(Fichier...Enregister sous..etc...) le symbole décimal dans mon
fichier texte reste une virgule.
Quelqu'un aurait-il une solution pour que ma macro conserve la
virgule
comme symbole décimal ?????
Merci
Voici au cas ou le code.
****************
Sub ExportTXT()
Dim newWks As Worksheet
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'to a new workbook
Set newWks = ActiveSheet
With newWks
.SaveAs Filename:="G:TEST-GREGExport" & wks.Name,
FileFormat:=xlText
.Parent.Close savechanges:úlse
End With
Next wks
MsgBox "Exportation réalisé avec SUCCES"
'MsgBox "done with: " & ActiveWorkbook.Name
J'ai trouvé une macro sur Internet qui me permet d'exporter chacune de
mes feuilles Excel dans un fichier texte.
Elle fonctionne parfaitement, mais le seul problème est qu'une fois le
fichier texte exporté, mon symbole décimale et devenu un point.
Le plus étrange, c'est que si je fais l'opération à la main, (Fichier...Enregister sous..etc...) le symbole décimal dans mon fichier texte reste une virgule.
Quelqu'un aurait-il une solution pour que ma macro conserve la virgule
comme symbole décimal ?????
Merci
Voici au cas ou le code. **************** Sub ExportTXT()
Dim newWks As Worksheet Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets wks.Copy 'to a new workbook Set newWks = ActiveSheet With newWks .SaveAs Filename:="G:TEST-GREGExport" & wks.Name, FileFormat:=xlText .Parent.Close savechanges:úlse End With Next wks
MsgBox "Exportation réalisé avec SUCCES" 'MsgBox "done with: " & ActiveWorkbook.Name
End Sub *******************
bil.bao
Bonjour Clément,
Merci pour ton aide mais les seules informations que j'ai trouvé concerne les séparateurs lors de l'exportation...
J'ai peut-être homis de préciser que mes paramètres régionaux sont fixé, mais rien n'y fait...
Aurais-je du caca devant les yeux et je ne vois pas le bon post ??
Merci encore
Bill
Bonjour Clément,
Merci pour ton aide mais les seules informations que j'ai trouvé
concerne les séparateurs lors de l'exportation...
J'ai peut-être homis de préciser que mes paramètres régionaux sont
fixé, mais rien n'y fait...
Aurais-je du caca devant les yeux et je ne vois pas le bon post ??
Merci pour ton aide mais les seules informations que j'ai trouvé concerne les séparateurs lors de l'exportation...
J'ai peut-être homis de préciser que mes paramètres régionaux sont fixé, mais rien n'y fait...
Aurais-je du caca devant les yeux et je ne vois pas le bon post ??
Merci encore
Bill
Clément Marcotte
Bonjour,
L'idée de base est de ne pas utiliser les fonctions toutes faites d'Excel, et d'écrire tes propres routines pour écrire/lire le fichier texte. Dans tout cela, il y en a une qui te permet d'écrire ton fichier de trois façons différentes, avec les trois résultats dans le même fichier texte.
Ensuite, tu peux choisir celle qui te conviens le mieux et adapter.
"bilbao" a écrit dans le message de news:
Bonjour Clément,
Merci pour ton aide mais les seules informations que j'ai trouvé concerne les séparateurs lors de l'exportation...
J'ai peut-être homis de préciser que mes paramètres régionaux sont fixé, mais rien n'y fait...
Aurais-je du caca devant les yeux et je ne vois pas le bon post ??
Merci encore
Bill
Bonjour,
L'idée de base est de ne pas utiliser les fonctions toutes faites
d'Excel, et d'écrire tes propres routines pour écrire/lire le fichier
texte. Dans tout cela, il y en a une qui te permet d'écrire ton
fichier de trois façons différentes, avec les trois résultats dans le
même fichier texte.
Ensuite, tu peux choisir celle qui te conviens le mieux et adapter.
"bilbao" <bil.bao@freesurf.ch> a écrit dans le message de
news:65633238.0404300136.26564670@posting.google.com...
Bonjour Clément,
Merci pour ton aide mais les seules informations que j'ai trouvé
concerne les séparateurs lors de l'exportation...
J'ai peut-être homis de préciser que mes paramètres régionaux sont
fixé, mais rien n'y fait...
Aurais-je du caca devant les yeux et je ne vois pas le bon post ??
L'idée de base est de ne pas utiliser les fonctions toutes faites d'Excel, et d'écrire tes propres routines pour écrire/lire le fichier texte. Dans tout cela, il y en a une qui te permet d'écrire ton fichier de trois façons différentes, avec les trois résultats dans le même fichier texte.
Ensuite, tu peux choisir celle qui te conviens le mieux et adapter.
"bilbao" a écrit dans le message de news:
Bonjour Clément,
Merci pour ton aide mais les seules informations que j'ai trouvé concerne les séparateurs lors de l'exportation...
J'ai peut-être homis de préciser que mes paramètres régionaux sont fixé, mais rien n'y fait...
Aurais-je du caca devant les yeux et je ne vois pas le bon post ??
