Sauvegarde sous un autre format

Résolu
Space 2092 -  
f894009 Messages postés 17277 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
A voir également:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour, 

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