Génération d'un fichier .txt à partir d'un bouton "générer"

[Sarah0606]

Bonjour,

j'utilise excel pour faire un outil de collecte.

Mon utilisateur remplit le fichier excel (des tableaux dans des feuilles) et puis à la fin il appuie sur un bouton générer qui doit créer un fichier .txt avec les données transformées.

Exemple: dans ma feuille 1 j'ai un tableau
age: XX
nom:machin
adresse:3 allée excel downloads


Je voudrais avoir un .txt qui affiche:

Votre nom est: machin
Vous avez XX age
Vous habitez 3 allée excel downloads

Comment puis je faire cela??

merci de m'aider je suis trop perdue avec ça

 

[PascalXLD]

Re : Génération d'un fichier .txt à partir d'un bouton "générer"

Bonjour

ce code permet d'écrire dans un fichier existant

Sub toto()
    Dim MonTexte As String
    Fichier = "C:\essai.txt"
    ligne1 = "Votre nom est : " & Range("B2")
    ligne2 = "vous avez : " & Range("B1") & " ans"
    ligne3 = "Vous habitez : " & Range("B3")
    f = FreeFile()
    Open Fichier For Append As #f
    Print #f, ligne1
    Print #f, ligne2
    Print #f, ligne3
    Close #f
End Sub

 

[Sarah0606]

Re : Génération d'un fichier .txt à partir d'un bouton "générer"

Merci ça marche bien mais il faut que mon application crée le fichier en cliquant sur un bouton enfait...

 

[PascalXLD]

Re : Génération d'un fichier .txt à partir d'un bouton "générer"

re

Sub toto()
    Dim MonTexte As String
    Fichier = "C:\" & Range("B2") & ".txt"
    ligne1 = "Votre nom est : " & Range("B2")
    ligne2 = "vous avez : " & Range("B1") & " ans"
    ligne3 = "Vous habitez : " & Range("B3")
    f = FreeFile()
    Open Fichier For Append As #f
    Print #f, ligne1
    Print #f, ligne2
    Print #f, ligne3
    Close #f
End Sub

Là cela te crée un fichier au nom de la personne .txt

Mais si un fichier existe déjà cela ecrit dedans