Rechercher : dans
Par :

[VBA Excel] creer un fichier txt

Dernière réponse le 7 sep 2007 à 17:52:13 sakura250006, le 12 jun 2007 à 14:35:59 
 Signaler ce message aux modérateurs

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.

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « [VBA Excel] creer un fichier txt » dans :
Excel - Convertir fichier(s) CSV / XLS VoirComme dit dans le titre, cette application convertit des fichiers CSV en fichiers XLS N’est pas nécessaire pour Excel 2007, ce dernier faisant la conversion automatiquement La conversion n’ayant pas de mise en forme, en cas de modification...
Fichier TXT VoirFormat TXT Un fichier TXT est un fichier texte, c'est-à-dire un simple fichier contenant du texte au format ASCII. Pour ouvrir ou modifier un tel fichier, il suffit d'utiliser le bloc-notes ou un éditeur de texte traditionnel.

1

fred.0, le 12 jun 2007 à 23:57:24
  • +2

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

Répondre à fred.0

2

 kab1212, le 7 sep 2007 à 17:52:13

Slt j suis debutant avec SAGE je doit importer des fichier execl il me semble que j dois passer par des fichiers *.txt
est ce le cas? dans tout les cas cmt faire ?

Répondre à kab1212