Créer nommer et enregistrer un fichier .txt

Bonsoir le forum,

Comme je l'ai précisé sur le titre, je souhaiterai créer un fichier txt, ensuite l'enregistrer avec un nom précis le tout via vba.

Mon but est de récupérer des données qui se trouve dans des cellules et les mettre dans le bloc note.

Vous avez une idée ?

Merci d'avance

Bonsoir

Oui , en vba est possible de créer un fichier Txt, ensuite l'enregistrer avec un nom précis

mais il te faut un exemple de ton fichier EXEL dont les données se trouve dans des cellules .

Re,

Le voici, mais y'a pas grand chose.

Cdlt

514classeur1.xlsm (9.67 Ko)

bonsoir Ronibo, Amir et le forum

j'ai essayer avec l'enregistreur mais sans pouvoir donner un nom a la feuille voici ce que cela a donné, je l'ai enregistré sur le bureau

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    Selection.Copy
    Application.CutCopyMode = False
    ChDir "C:\Users\Pascal\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Pascal\Desktop\Copie de Classeur1.txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
End Sub

Bonsoir,

Merci Grisan29, c'est la première chose que j'ai faite lol, j'attends calmement les experts pour voir les solutions proposées

A+

Bonjour,

avec le nom :

Sub Macro1()
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Eric\Desktop\" & [A1] & ".txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
End Sub

eric

bonsoir eriiic, ronibo et le forum

eriiic je viens d'essayer sur le classeur fourni et j'ai un bug qui me dit qu'il est impossible d'accéder au fichier a.txt, je clique sur réessayer la l'erreur 400 apparait sans allez dans vba

voici comment j'ai mis le code avec une mauvaise écriture

Sub Macro1()
    '
    ' Macro1 Macro
    '

    '

        ActiveWorkbook.SaveAs Filename:= _
            "C:\Users\Pascal\Desktop\" & [A1] & ".txt", FileFormat:= _

            xlTextMSDOS, CreateBackup:=False
    End Sub

en réécrivant avec le bon chemin c'est bon pour la lettre A mais je crois que Ronibo veux une feuille .txt pour les 4 lettres

Bonjour,

Merci à vous, dans l'ensemble ca fonctionne bien mais j'aimerai mettre dans le bloc note des cellules bien précis (A1, A2, A3 et A4)

vous pensez que c'est possible?

Bonjour,

Sub test()
    Dim numfich As Long, c As Range
    numfich = FreeFile
    Open "C:\Users\Eric\Desktop\" & [A1] & ".txt" For Output As #numfich
    For Each c In [A1:A4]
        Print #numfich, c.Value & vbCrLf;
        ' ou
        'Print #numfich, c.Text & vbCrLf;
        'si tu as des arrondis à l'affichage que tu désires conserver
        'par exemple 7.786 affiché 7.79 mais dans le fichier ça sera : "7.79"
    Next c
    Close #numfich
End Sub

eric

Re,

Merci pour le code, c'est normal qui me supprime l'extension de mon fichier excel ?

En faite je souhe enregistrer des données dans des cellules puis en même temps sur un bloc note (.txt)

Conserver mon fichier excel d'origine, en rajoutant des données, puis transféré les données sur un bloc note, puis enregistrer mon fichier excel

PS : Erreur de ma part, le code fonctionne à la perfection, merci pour tout

Désolé du retard, je suis en plein travaux donc j'avais pas de connexion

Comment ça il te supprime l'extension de ton fichier excel ?

Il ne fait que créer un fichier .txt et ne peut en aucun cas modifier autre chose.

Rechercher des sujets similaires à "creer nommer enregistrer fichier txt"