Discussion :

[roidurif]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[fred65200]

Bonjour, en utilisant ce code, ton classeur sera enregistré en .CSV, avec comme séparateur le point virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Fichier = Application.GetSaveAsFilename(Nom_Fichier, "Fichier Texte (*.txt), *.txt")
    Workbooks.OpenText Filename:=Fichier, Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1)), TrailingMinusNumbers:=True
    Fichier = Left(Fichier, Len(Fichier) - 3) & "csv"
    ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat _
        :=xlCSV, CreateBackup:=False
    ActiveWindow.Close True

Cordialement

[roidurif]

Bonjour,
je souhaite c'est enregistrer un fichier .txt (avec séparateur point virgule) en codage UTF-8.

Quelqu'un peux m aider svp
Merci de m'aider à améliorer cette macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[edelweisseric]

Bonjour à tous
Bonjour roidurif, Fred65200

Je ne comprends pas pourquoi tu reposes la question puisque Fred65200 t'a répondu le 11/02/2009

Ne verrais tu pas sa réponse ? ce qui m' ai déjà arrivé. Tu la trouveras ci-dessous :

Bonjour, en utilisant ce code, ton classeur sera enregistré en .CSV, avec comme séparateur le point virgule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Fichier = Application.GetSaveAsFilename(Nom_Fichier, "Fichier Texte (*.txt), *.txt")
    Workbooks.OpenText Filename:=Fichier, Origin:= _
        xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote _
        , ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1)), TrailingMinusNumbers:=True
    Fichier = Left(Fichier, Len(Fichier) - 3) & "csv"
    ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat _
        :=xlCSV, CreateBackup:=False
    ActiveWindow.Close True

Cordialement

Cordialement

Eric

[roidurif]

Bonjour à tous

le problème c'est que ca ne convertit pas en UTF 8, je c pas comment faire??

merci