Comment enregistrer avec des virgules à la place de tabulations?

Robot ON

Robot dire

Exemples sur Exelabo.net ou sur le site de Frédiric Sigonneau

Robot OFF

"Maxalou" <Maxalou@discussions.microsoft.com> a écrit dans le message de
news:B3C38C90-502C-473B-AC7A-1D68ECF5A9D0@microsoft.com...

Comment enregistrer avec des virgules à la place de tabulations?
Comme dans le titre.
Si je fais Fichier -> Enregistrer sous, je n'ai pas d'option pour
enregistrer avec des virgules, seulement avec des tabulations(TAB).

Bonjour Maxalou,

Un exemple :

Dans la procédure tu n'as qu'à modifier Chr(44) qui représente le caractère "," pour celui de ton choix.

'---------------------------------------
Sub SaveAsTextFile()

Dim C As Variant
Dim fFilename As String
Dim a As Integer, b As Integer
Dim Tmp As String

With Worksheets("Feuil2")
C = .Range("A1:D10")
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 & Chr(44) & C(a, b)
Else
Tmp = C(a, b)
End If
Next
Print #1, Tmp
Next
Close #1
Erase C
End Sub
'---------------------------------------


Salutations!



"Maxalou" <Maxalou@discussions.microsoft.com> a écrit dans le message de news: B3C38C90-502C-473B-AC7A-1D68ECF5A9D0@microsoft.com...
Comment enregistrer avec des virgules à la place de tabulations?
Comme dans le titre.
Si je fais Fichier -> Enregistrer sous, je n'ai pas d'option pour
enregistrer avec des virgules, seulement avec des tabulations(TAB).