séparateur dans fichier txt

[loutredijon]

Bonsoir,
dans une feuille j'ai 54 colonnes de chiffres, à partir des toutes ces données j'ai créer un fichier .txt avec comme séparateur le ; mais le logiciel interne à ma boite qui me prendra le fichier txt ne veut pas de ; à la fin de la ligne.
Je ne sais comment enlever ce ;
merci par avance

 

[Cousinhub]

Re : séparateur dans fichier txt

Bonsoir,

enregistrer au format .csv?

 

[Staple1600]

Re : séparateur dans fichier txt

Bonsoir à tous , Re bhbh

bhbh:J'ai essayé.

Il reste un ; en fin de ligne.

 

[Cousinhub]

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

 

[skoobi]

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

 

[Staple1600]

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

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

 

[loutredijon]

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

 

[Risleure]

Re : séparateur dans fichier txt

Re,

En faisant sauter le dernier ;

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

 

[Catrice]

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.

 

[Catrice]

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 ";".

 

[loutredijon]

Re : séparateur dans fichier txt

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

 

[roidurif]

Re : séparateur dans fichier txt

Bonjour,

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

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

Merci

 

[roidurif]

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??

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

Merci