Creer un fichier txt et le déposer dans un dossier spécifiqu

Bonjour

Est-il possible AVEC UNE MACRO VBA de créer un fichier txt avec des données contenu dans des cellules excel spécifique et par la suite placer ce fichier txt dans un dossier spécifque ?

Merci d'avance

Bonjour,

oui c''est possible et il y a tout un tas de manière .. décris nous ton fichier texte..

Bonjour,

même si le fichier Report.txt n'existe pas,

il sera automatiquement créé au moment il est ouvert en mode Append, Binary, Output ou Random.

Sub CreateFileLog()
    FileNumber = FreeFile 
    LogFile = "C:\Users\xxxxx\Documents\Report.txt"
    Open "C:\Users\xxxxx\Documents\Report.txt " For Append As #FileNumber
    Print #FileNumber, "Valeur de la cellule A1 : " & Range("A1")
    Print #FileNumber, vbLf
    Close #FileNumber
End Sub

Bonjour,

ci joint un exemple du fichier txt que je souhaite créer et placer dans un dossier

ou est le fichier ?

sorry le voila

Bonjour,

ben' Sabv ta déjà tout dit à toi d'adapter ...

Sub creerFichier()
    Dim stF As String
    Dim f As Integer
    stF = ThisWorkbook.Path & "\NouveauExemple.txt"
    f = FreeFile

    Open stF For Output As #f
    Print #f, "du= 1 / 4 / 2017"
    Print #f, "au = 18 / 4 / 2017"
    Print #f, "statpro = 1"
    Print #f, "14589"
    Print #f, "12345"
    Print #f, "36925"
    Print #f, "14725"
    Print #f, "12345"
    Print #f, "78945"
    Close #f

End Sub

Bonjour pierre.jy,

voilà, en supposant que les données soient en cellule A1:A9

Sub CreateFileTexte()
    FileNumber = FreeFile    ' Lit le numéro de fichier inutilisé   
    LogFile = "C:\Users\xxxxx\Documents\Report.txt"
    Open "C:\Users\xxxxx\Documents\Report.txt " For Append As #FileNumber

    Print #FileNumber, "du = " & Format(Range("A1"), "d/m/yyyy")
    Print #FileNumber, "au = " & Format(Range("A2"), "d/m/yyyy")
    Print #FileNumber, "statpro = " & Range("A3")
    For i = 4 To 9
     Print #FileNumber, Range("A" & i)
    Next
    Close #FileNumber
End Sub

Merci à tous ma macro marche bien