Discussion :

[jbggg]

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

[Peut-êtreUneRéponse]

Le BA-BA :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

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

.

[ucfoutu]

Bonjour,

Encore FSO !...
Pourquoi alourdir son appli ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Peut-êtreUneRéponse]

Encore FSO !...
Pourquoi alourdir son appli ?

Parce que je ne connaissais pas cette méthode !

.

[jbggg]

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.

[ucfoutu]

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é !

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 ...

[Mimosa777]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ucfoutu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!
Open crée le fichier s'il n'existe pas (tout seul, comme un grand) et l'écrase s'il existe...

[Mimosa777]

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

[fring]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!
Open crée le fichier s'il n'existe pas (tout seul, comme un grand) et l'écrase s'il existe...

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

[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.

[Patrice740]

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.