Vba: enregistrer sous... Texte (séparateur: tabulation)(*.txt)

[Jac]

Bonjour ￜ tous,

je veux enregistrer mon fichier actif au format
Texte (sï¿œparateur: tabulation)(*.txt)
que je trouve dans la liste des types de fichiers lors d'un
"Enregistrer sous...", mais que je ne retrouve ni via l'enregistreur de
macros ni dans la liste 43 formats possibles tels que dï¿œcrits dans
l'aide sous "FileFormat, propriￜtￜ".

J'ai essayￜ (je pense) tous les formats qui me semblent enregistrer en
txt. En vain. Problï¿œme : les sï¿œparateurs de milliers sont remplacï¿œs par
des virgules et les nombres sont placï¿œs entre double cottes.

Exemple : 12 000 devient "12,000"
Et certains formats txt, souvent les "Dos", remplacent les caractï¿œres
accentuï¿œs par d'autres signes.

Merci d'avance ￜ qui pourrait m'orienter vers la solution qui doit ￜtre
devant mes yeux, mais que je ne vois pas...

Jac

[michdenis]

Bonjour Jac,

Quand tu fais enregistrer sous, tu sï¿œlectionnes dans la liste
dï¿œroulante - type de fichier- Texte unicode(*.txt) et cela
fonctionne bien !

Si tu dï¿œsires, tu peux utiliser ceci : une petite macro :
Si tu veux sauvegarder tes donnï¿œes avec un format particulier,
tu peux utiliser la fonction "Format()" pour formater chacune des
donnï¿œes de la plage dans la procï¿œdure.

'-----------------------------------------
Sub SaveAsTextFile()
Dim C As Variant
Dim fFilename As String
Dim a As Integer, b As Integer
Dim tmP As String
Dim Separateur As String

'Tu choisis le sï¿œparateur de ton choix
Separateur = vbTab
'Plage ￜ copier
With Worksheets("Feuil1")
C = Range("A1:C6")
End With

fFilename = _
Application.GetSaveAsFilename(InitialFileName:="nom_par_defaut", _
fileFilter:="Text Files (*.txt), *.txt")

Open fFilename For Output As #1

For a = 1 To UBound(C, 1)
tmP = ""
For b = 1 To UBound(C, 2)
If tmP > "" Then
tmP = tmP & Separateur & C(a, b)
Else
tmP = C(a, b)
End If
Next
Print #1, tmP
Next
Close #1
Erase C
End Sub
'-----------------------------------------

"Jac" <jsa...@amfra.net> a ï¿œcrit dans le message de groupe de discussion :
eelCjunb...@TK2MSFTNGP04.phx.gbl...

[Jac]

Bonjour michdenis,

ok pour ta solution, mais ce qui m'embï¿œte, c'est que je voulais faire
un "truc" gￜnￜraliste, sans formatage particulier, c'est pour celￜ que
je cours aprï¿œs l'ï¿œquivalence vba de
"Texte (sï¿œparateur: tabulation)(*.txt)".
Les autres trafiquent les formats de nombre (je peux rï¿œsoudre en
enlevant le sï¿œparateur de milliers... mais j'aimerais mieux m'en
passer) ou suppriment les caractï¿œres accentuï¿œs.

michdenis vient de nous annoncer :

[michdenis]

La solution ￜ partir du menu Fichier qui existe dans
excel (windows7 et office 2007), je n'ai rien ￜ retoucher
et il respecte le format et la tabulation !

Par macro, ï¿œa donne ceci :

ActiveWorkbook.SaveAs Filename:="C:\Classeur3.txt", FileFormat:=xlText

"Jac" <jsa...@amfra.net> a ï¿œcrit dans le message de groupe de discussion :

#9EQsMqb...@TK2MSFTNGP02.phx.gbl...

[Jac]

... ok. J'ai supprimￜ le formatage sur les nombres (sￜparateur de
milliers qui me donnait quand mï¿œme avec xlText des "12,000") et
j'enregistre en xlText. Les caractï¿œres accentuï¿œs sont conservï¿œs.
Donc ï¿œa me convient.

Merci encore de t'ￜtre penchￜ sur mon problￜme

Jac

michdenis a formulￜ ce jeudi :