Sauvegarde sous un autre format

Résolu/Fermé

Space 2092 - 13 nov. 2017 à 15:35
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 17 nov. 2017 à 09:33

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:

Sauvegarde sous un autre format
Telecharger format factory - Télécharger - Conversion & Codecs
Logiciel de sauvegarde - Guide
Format epub - Guide
Format apfs - Guide
Comment formater un pc - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 nov. 2017 à 15:49

Bonjour,

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

Réponse 2 / 3

Space 2092
17 nov. 2017 à 08:50

Merci beaucoup, cela fonctionne à merveille maintenant.

Réponse 3 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié le 17 nov. 2017 à 09:50

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 ","

Discussions similaires

Menace "Interpol" après webcam coquine

Où se trouve les sauvegardes Steam ?

Pokémon X et Y : comment effacer une partie ?

Discussions similaires

Newsletters