importer en .TXT

[loutredijon]

Bonsoir,
Je bloque sur une macro:

Sub FichierTXT()
Application.DisplayAlerts = False
'Choisis la feuille que tu veux transformer en TXT
Worksheets("Feuil1").Copy
'Sauvegarde en TXT de la feuille choisie
With ActiveWorkbook
.SaveAs FileName:=Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt"), FileFormat:=xlTextWindows, local:=True
.Close False
End With
Application.DisplayAlerts = False
End Sub


Elle me demande d'enregistrer le nom du fichier, le transforme bien en .txt mais met des espace entre chaque caractére alors que je voudraid mettre entre chaque caractère un ;
Et est ce qu'il est possible de ne commencer la conversion en txt cas partir de la ligne 5.
Merci par avance

Bonne soirée

 

[Staple1600]

Re : importer en .TXT

Bonsoir


Voici une autre méthode

Sub SaveAsTXT()
'message d'origine : BrunoM45
' http://www.excel-downloads.com/forum/400421-post7.html
'steve, mpfe
Dim Range As Object, Line As Object, Cell As Object
Dim StrTemp As String
Dim Separateur As String

    Separateur = ";"

    Set Range = ActiveSheet.UsedRange
    Open "C:\Test.txt" 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

 

[myDearFriend!]

Re : importer en .TXT

Bonsoir loutredijon, Stapple1600,

Sinon, en conservant ton code, tu peux essayer avec ça :

... FileFormat:=[B]xlCSV [/B]...

Et sans oublier, en dernière ligne de ta procédure de rectifier :

Application.DisplayAlerts = [COLOR=NAVY][B]True[/B][/COLOR]

Cordialement,

 

[loutredijon]

Re : importer en .TXT

Bonsoir,
Ca marche, merci à tous pour votre aide.
Je vous tire mon chapeau et longue vie au forum dont les membres sont de qualités et dévoués.

A+