VBA créer un fichier bloc note

Bonjour,

je suis en école d'ingénieur (mais pas en informatique) et je dois développer un programme en visual basic.
je voulais savoir s'il était possible, à partir de donner sous excel, de créer un fichier bloc note comportant des données présentes sous excel.

Merci
JB

Le BA-BA :

Code:

---

1 2 3 4 5 6 7

Sub test() Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("C:\MonFichier.txt", True) a.WriteLine ("Ma première ligne") a.WriteLine ("Ma deuxième ligne") a.Close End Sub

---

A adpater avec une boucle pour l'écriture des lignes et la lecture des valeurs de cellules à mettre à la place de "ma première ligne"...

.

Bonjour,

Encore FSO !...
Pourquoi alourdir son appli ? 8O

Code:

---

1 2 3 4

Open "d:\essayons.txt" For Output As #1 Print #1, "bonjour" Print #1, "voilà tout" Close #1

---

Citation:

---

Envoyé par ucfoutu

Encore FSO !...
Pourquoi alourdir son appli ? 8O

---

Parce que je ne connaissais pas cette méthode :P!

.

je ne comprends pas le deuxième code, celui de ucfoutu.

Car avec ce code j'imprime les données, or moi je voudrais un fichier .txt permettant d'être réutilisé avec un autre programme (autre que VBA)

j'oubliais aussi dans ma première ligne de mon fichier .txt je vous avoir des valeur qui sont dans des cellules différentes (mais sur une même ligne) est-ce possible?

merci de vos réponses.

Citation:

---

Envoyé par jbggg

je ne comprends pas le deuxième code, celui de ucfoutu.

Car avec ce code j'imprime les données

---

Tu n'as donc même pas essayé ! 8O

1) mon code n'imprime rien
2) il fait exactement la même chose que le code montré par Peut-êtreUneRéponse et utilisant FSO ...


Bref ...

Salut,

La methode de fring est la plus simple et tu peux l'inserer facilement dans un sub que tu peux appeler pour creer ton fichier texte avec tes données Excel. Par ailleurs, voila comment moi je fais :

Code:

---

1 2 3 4 5 6 7 8

'Creation fichier texte Dim r As FileSystemObject Set r = New FileSystemObject r.CreateTextFile "C:\monfichier.txt" Open "C:\monfichier.txt" For Output As #1 Print #1, "je mets ce que je veux comme texte" Print #1, "ici, je peux mettre des données Excel comme ca" & Sheets(sheet1).Range("A" & i) 'ici un exemple a partir de ma feuille excel

---

A+

Peux-tu, Mimosa777, nous expliquer l'utilité de

Code:

---

1 2 3

Dim r As FileSystemObject Set r = New FileSystemObject r.CreateTextFile "C:\monfichier.txt"

---

dans ton code ?

Pour le reste, je ne puis qu'être d'accod (c'est ce que je préconise ! ;))

Mais ce que j'ai mis de ton code est totalement inutile !!! 8O
Open crée le fichier s'il n'existe pas (tout seul, comme un grand) et l'écrase s'il existe... :lol:

hehe , j'apprends des choses.. je le savais pas que ca marchait bien sans !!!
Merci Fring :yaisse2:

Citation:

---

Envoyé par ucfoutu

Peux-tu, Mimosa777, nous expliquer l'utilité de

Code:

---

1 2 3

Dim r As FileSystemObject Set r = New FileSystemObject r.CreateTextFile "C:\monfichier.txt"

---

dans ton code ?

Pour le reste, je ne puis qu'être d'accod (c'est ce que je préconise ! ;))

Mais ce que j'ai mis de ton code est totalement inutile !!! 8O
Open crée le fichier s'il n'existe pas (tout seul, comme un grand) et l'écrase s'il existe... :lol:

---

euuuh c'est gentil de faire ma promo Mimosa (je ne savais pas que j'avais un fan) :mouarf: mais je ne sais pas non plus d'où ça sort ça 8O !!!

Bon jour,

Bien que le poste est très ancien, mais il m'a servi ce jour.

Il fonctionne parfaitement, mais juste il ne m'imprime que la première ligne de ma feuille alors que j'ai 5000 Ligne et c'est un nombre variable.

C'est quoi la solution SVP ?

Merci d'avance.

Citation:

---

Envoyé par Pittouti

Bon jour,

Bien que le poste est très ancien, mais il m'a servi ce jour.

Il fonctionne parfaitement, mais juste il ne m'imprime que la première ligne de ma feuille alors que j'ai 5000 Ligne et c'est un nombre variable.

C'est quoi la solution SVP ?

Merci d'avance.

---

Peux-tu développer tes difficulté et publier le code que tu as utilisé....
Les codes de ce post ne servent pas à imprimer mais à créer un fichier texte.

Bonjour,
Je déterre un vieux sujet.

Dans l'idéal je souhaiterais :

Ouvrir le document : C:\Users\GAE\Desktop\Test\Test.txt
Enregistrer toutes les informations de mon classeur Excel : colonne A à AG
Enregistrer une copie sous la forme : C:\Users\GAE\Desktop\Test\10/05/2022.txt (date du jour)
Si une copie à déjà été réalisé ce jour l'enregistrer sous la forme : C:\Users\GAE\Desktop\Test\10/05/2022(2).txt

Pour l'instant j'ai testé :

Code:

---

1 2 3 4 5 6

FileNumber = FreeFile LogFile = "C:\Users\GAE\Desktop\Test\Test.txt" Open "C:\Users\GAE\Desktop\Test.txt " For Append As #FileNumber Print #FileNumber, Columns("A:AG")   Close #FileNumber

---

j'ai un souci ici :

Code:

---

Print #FileNumber, Columns("A:AG")

---

Ensuite j'ai testé :

Code:

---

1 2 3 4 5 6

Dim r As FileSystemObject Set r = New FileSystemObject r.CreateTextFile "C:\Users\GAE\Desktop\Test\Test.txt" Open "C:\Users\GAE\Desktop\Test\Test.txt" For Output As #1   Print #1, Columns("A:AG")

---

Puis :

Code:

---

1 2 3

Open "C:\Users\GAE\Desktop\Test\Test.txt" For Output As #1   Print #1, Columns("A:AG")

---

Et rien ne marche des idées sur comment je pourrais faire pour au moins créer un fichier txt ?

Version Excel 2016

Merci d'avance.

Bonjour à tous

Voici un Tuto qui peut peut-être résoudre ton problème. Le tuto est assez complet.

https://warin.developpez.com/access/fichiers/

Il est valable aussi bien pour Excel qu'Access.

En espérant que cela t'aide

Bonjour

voici le type de code que j'utilise.
li faut définir avant le nb de lignes et de colonnes (attention A:AG = +1 million de lignes !)

Code:

---

1 2 3 4 5 6 7 8 9

Open "...\test.txt" For Output As #1 For i = 1 To MaxLigne Concaténation = Cells(i, 1) For j = 2 To MaxColonne Concaténation = Concaténation & ";" & Cells(i, j) Next j Print #1, Concaténation Next i Close #1

---

Stéphane

Merci à vous Igloobel et Raccourcix.

Igloobel ton lien m'a permis de comprendre pas mal de chose j'ai commencé à faire quelques tests peu fructueux.

Raccourcix ta macro fonctionne super bien merci énormément pour ton aide! tu m'as apporté une belle pièce du puzzle je vais continuer pour faire la sauvegarde je pense pouvoir m'en sortir :D

Si besoin je repasserais dans le coin :roll: