Sauvegarde sous un autre format Résolu

Question

Bonjour,
Je cherche a imprimer une feuille excel sous format texte avec séparateur ";", jusqu’à présent j'ai réussi à trouver pour faire cela, simplement j'aimerai que le fichier créé se place dans le même répertoire et ait le même nom que le classeur d'origine.

Voici le code, trouvé sur le net, que j'utilise pour le moment.

Sub Imptxt()
    Dim Plage As Object, oL As Object, oC As Object, Tmp As String, Sep$
    Sep = ";"
    Set Plage = ActiveSheet.Range("A3:S" & ActiveSheet.Range("A5000").End(3).Row)
    Open "C:\Users\MS\Desktop\Débit.txt" For Output As #1
    For Each oL In Plage.Rows
    Tmp = ""
    For Each oC In oL.Cells
    Tmp = Tmp & CStr(oC.Text) & Sep
    Next
    Print #1, Tmp
    Next
    Close
End Sub

Merci d'avance pour votre aide

f894009 · Answer

Bonjour,

    CheminetNom = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Open CheminetNom & ".txt" For Output As #1

Space 2092 · Answer

Merci beaucoup, cela fonctionne à merveille maintenant.

f894009 · Answer

Bonjour,
Avec ce code pas de boucle
Sub Enreg_Feuille_CSV()
    Dim wb_b As Workbook
    Dim objworkbooksource As Workbook
    
    Set objworkbooksource = ActiveWorkbook
    Worksheets("Feuil1").Copy     'adaptez le nom de feuille
    Set wb_b = ActiveWorkbook
    Application.DisplayAlerts = False
    wb_b.SaveAs Filename:="C:\Users\MS\Desktop\Débit.txt", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    wb_b.Close True
    Application.DisplayAlerts = True
End Sub


suite:
Petite erreur, separateur ","

Sauvegarde sous un autre format

3 réponses

Discussions similaires

Newsletters