[VBA Excel] creer un fichier txt
Résolu
Utilisateur anonyme
-
kab1212 Messages postés 10 Statut Membre -
kab1212 Messages postés 10 Statut Membre -
bonjour,
c'est encore moi la reine des pbm sur VBA, en meme tps je suis debutante donc on peut m'excuser un peu (lol).
Bon voila mon pbm:
j'ai un formulaire a remplir avec les champs c1, c2 a remplir (y en a d'autres mais c'est cela les plus importants). La valeur de ces champs est envoyé dans une seule cellule.
Je voudrais créer à la fin un fichier du type c1c2.txt et lui envoyé le contenu de la cellule.
Si kk1 pouvais me donner un coup de main ca serait super mega gentil.
c'est encore moi la reine des pbm sur VBA, en meme tps je suis debutante donc on peut m'excuser un peu (lol).
Bon voila mon pbm:
j'ai un formulaire a remplir avec les champs c1, c2 a remplir (y en a d'autres mais c'est cela les plus importants). La valeur de ces champs est envoyé dans une seule cellule.
Je voudrais créer à la fin un fichier du type c1c2.txt et lui envoyé le contenu de la cellule.
Si kk1 pouvais me donner un coup de main ca serait super mega gentil.
A voir également:
- Vba créer un fichier txt
- Fichier bin - Guide
- Creer un fichier .bat - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Comment réduire la taille d'un fichier - Guide
2 réponses
Bonsoir
Avec la méthode Open... Print... Close... ça devrait marcher.
Ex :
Open "C:\c1c2.txt" For Append As #1
Print #1, ActiveSheet("A1").Value ' Référence de la cellule à copier dans le fichier
Close #1
Cette méthode ajoute les données à la fin du fichier, si celui-ci existe déjà. Pour supprimer le fichier avant d'y mettre des données il faut ajouter le ligne suivante avant la ligne Open...
If Dir("C:\c1c2.txt") = "c1c2.txt" Then Kill ("C:\c1c2.txt")
Avec la méthode Open... Print... Close... ça devrait marcher.
Ex :
Open "C:\c1c2.txt" For Append As #1
Print #1, ActiveSheet("A1").Value ' Référence de la cellule à copier dans le fichier
Close #1
Cette méthode ajoute les données à la fin du fichier, si celui-ci existe déjà. Pour supprimer le fichier avant d'y mettre des données il faut ajouter le ligne suivante avant la ligne Open...
If Dir("C:\c1c2.txt") = "c1c2.txt" Then Kill ("C:\c1c2.txt")