Sauvegarde sous un autre format

Résolu
Space 2092 -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

3 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour, 

        CheminetNom = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Open CheminetNom & ".txt" For Output As #1
    0
  2. Space 2092
     
    Merci beaucoup, cela fonctionne à merveille maintenant.
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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 ","
    0