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.

[sorbetframboise]

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 :

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

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 :

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

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

Ensuite j'ai testé :

Code :

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

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 :

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

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.

[Igloobel]

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

[Raccourcix]

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 :

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

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

[sorbetframboise]

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

Si besoin je repasserais dans le coin