séparateur dans fichier txt

Cousinhub

XLDnaute Barbatruc

• 2 Octobre 2008

• #2

Re : séparateur dans fichier txt

Bonsoir,

enregistrer au format .csv?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Octobre 2008

• #3

Re : séparateur dans fichier txt

Bonsoir à tous , Re bhbh

bhbh:J'ai essayé.

Il reste un ; en fin de ligne.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 2 Octobre 2008

• #4

Re : séparateur dans fichier txt

Ah bon?

je viens de refaire un essai, et en ouvrant le fichier, avec NotePad, je n'ai pas de ";" en fin

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 2 Octobre 2008

• #5

Re : séparateur dans fichier txt

Bonsoir loutredijon,
bhbh 🙂,
JM🙂,

pourrais-tu nous envoyer le code (si il y en a un) qui t'a permis de créer le fichier txt?

Edit: bing! collision

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Octobre 2008

• #6

Re : séparateur dans fichier txt

Re



Je suis désolé car j'ai un petit écran

et dans Notepad , à cause du retour à la ligne, j'ai mal vu
(il y avait un point-virgule en fin de ligne)

Pour mériter votre pardon, je vous offre le fichier ci-joint

et cette petite macro

Code:

Sub xls_vers_txt()
Dim i&, j&, l&, c&
Set S = ActiveSheet
l = S.UsedRange.Rows.Count
c = S.UsedRange.Columns.Count
Open "c:\temp\1xlscsv.txt" For Output As #1
    For i = 1 To l
        For j = 1 To c - 1
            Print #1, S.Cells(i, j) & Chr(59);
        Next j
        Print #1, S.Cells(i, j + 1)
    Next i
    Close #1 'qui elle laisse un ; à la fin ;-)
End Sub

 

Vote positif 0 Vote négatif

L

loutredijon

Guest

• 3 Octobre 2008

• #7

Re : séparateur dans fichier txt

Bonjour,
Merci pour vos réponse mais je voudrais savoir avec la macro que j'ai pour exporter en txt que dois je changer pour enlever le ; en fin de ligne merci
' Enregistrement du fichier en TXT
Dim Range As Object, Line As Object, Cell As Object
Dim StrTemp As String
Dim Separateur As String

Separateur = ";"
FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
Set Range = ActiveSheet.UsedRange
Open FileName For Output As #1

For Each Line In Range.Rows
StrTemp = ""
For Each Cell In Line.Cells

StrTemp = StrTemp & CStr _
(Cell.Text) & Separateur

Next
Print #1, StrTemp '= " "
Next
Close
End Sub

 

Vote positif 0 Vote négatif

R

Risleure

XLDnaute Occasionnel

• 3 Octobre 2008

• #8

Re : séparateur dans fichier txt

Re,

En faisant sauter le dernier ;

Code:

Next
StrTemp= Left(StrTemp, Len(StrTemp) - 1)
Print #1, StrTemp'= " "
Next
Close

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 3 Octobre 2008

• #9

Re : séparateur dans fichier txt

bonjour,

Je propose l'adaptation suivante :

Sub Test()
'Enregistrement du fichier en TXT
Dim Range As Object, Line As Object, Cell As Object
Dim StrTemp As String
Dim Separateur As String
Separateur = ";"
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
Set Range = ActiveSheet.UsedRange
Open Filename For Output As #1
For Each Line In Range.Rows
StrTemp = ""
i = 1
For Each Cell In Line.Cells
If i = Line.Cells.Count Then
StrTemp = StrTemp & CStr(Cell.Text)
Else
StrTemp = StrTemp & CStr(Cell.Text) & Separateur
End If
i = i + 1
Next
Print #1, StrTemp '= " "
Next
Close
End Sub

Edit : la solution de RisLeure est plus courte.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 3 Octobre 2008

• #10

Re : séparateur dans fichier txt

Re,

A toutes fins utiles, le code suivant fonctionne sur mon Excel 2002 :

Sub Macro1()
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlCSV, local:=True
End Sub

je saisis toto ou toto.txt, il m'enregistre un Txt avec des ";".

 

Vote positif 0 Vote négatif

L

loutredijon

Guest

• 3 Octobre 2008

• #11

Re : séparateur dans fichier txt

Bonjour,
Merci à tous c'est exactement ce que je voulais.
Bonne fin de soirée

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 9 Février 2009

• #12

Re : séparateur dans fichier txt

Bonjour,

Comment avec cette macro, enregistrer un fichier .txt (avec séparateur point virgule) en codage UTF-8??

Code:

Sub Macro1()
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlCSV, local:=True
End Sub

Merci

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 10 Février 2009

• #13

Re : séparateur dans fichier txt

Re-Bonjour,

Quelqu'un peux m'aider SVP pour savoir Comment avec cette macro, enregistrer un fichier .txt (avec séparateur point virgule) en codage UTF-8??

Code:

Sub Macro1()
Filename = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")
ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlCSV, local:=True
End Sub

Merci

 

Vote positif 0 Vote négatif