[VBA-E]Ecriture de données dans un fichier texte

Version imprimable

20/03/2006, 22h38
osito57

[VBA-E]Ecriture de données dans un fichier texte

Bonsoir tout le monde
je voudrais écrire des données dans un fichier texte : l'écriture en elle même ne pose pas de problème.
LEs données sont en colonne, avec un titre à correspondant à chacune d'entre elles; voila ce que ca donne.
Titre1 Titre2 Titre3
x x x
x x x
x x x
x x x

Je voudrais décaler les données (x) en dessous de chaque titre, est-ce qu'il existe une fonction le permettant ?

Merci d'avance
20/03/2006, 22h41
SfJ5Rpw8

bien si utilise la fonction excel enregistrer sous .. format texte séparer par tabulation ...
cela ne te convient pas ?
20/03/2006, 22h45
osito57

Ecriture de données dans un fichier texte

En fait j'ai pas essayé ca parce que je voudrais que ca se fasse automatiquement, que tout s'écrive avec des espaces, et tout et tout
C'est possible de la faire automatiquement ou pas??
20/03/2006, 22h48
SfJ5Rpw8

regarde déjà si cela te va ... puis utilise l'enregistreur de macro pour trouver le code qui va avec !
20/03/2006, 22h50
osito57

ok, je tente ca de suite
merci bien
20/03/2006, 22h53
osito57

mais il y a un petit probleme non??
Ca peut marcher avec un fichier texte?? : c'est pas excel donc on ne peut pas enregistrer de macro si?
20/03/2006, 22h57
SfJ5Rpw8

ben tu n'as pas dis sous quoi tu coder ... et moi envoyant un tableau j'ai pensé à Excel... alors dis nous quoi VBA-Excel...VBA-Word... VB6...?
20/03/2006, 23h11
osito57

Pardon,
C'est du VBA Excel, mais une partie du programme concerne la lecture de données contenues dans un fichier texte, et l'écriture des resultats dans ce meme type de fichier.
20/03/2006, 23h14
SfJ5Rpw8

d'onc tu peu enregistrer une macro excel qui manipule un fichier texte... !
21/03/2006, 11h20
Megaxel

Commence par déterminer le nombre de caractères de chacune de tes colonnes, dans ton fichier texte, pour que ça soit bien en dessous des titres.
Ensuite, tu devras te faire une fonction qui formatte tes chaines de caractères pour leur donner la bonne longueur, en rajoutant des espaces à la fin.
Tu n'auras alors plus qu'à écrire ces chaines dans ton fichier texte.

non?
21/03/2006, 11h23
SfJ5Rpw8

Citation:

Envoyé par Megaxel

Commence par déterminer le nombre de caractères de chacune de tes colonnes, dans ton fichier texte, pour que ça soit bien en dessous des titres.
Ensuite, tu devras te faire une fonction qui formatte tes chaines de caractères pour leur donner la bonne longueur, en rajoutant des espaces à la fin.
Tu n'auras alors plus qu'à écrire ces chaines dans ton fichier texte.

non?

ben non ... tu n'est pas obligé .. de rajouter des espaces... si tu utilise des tabulations comme séparateurs les textes s'alignent d'eux même lors de la consultation dans la pluspart des éditeurs...

sinon si tu tiens à rajouter des espaces... voila une fonction ...:
http://www.developpez.net/forums/vie...ht=len&start=3
21/03/2006, 11h32
Megaxel

Je dirais "bof".
S'il y a de trop grandes différences de longueur entre 2 éléments d'une même colonne, la tabulation est souvent insuffisante, et tu te retrouves avec des données décalées. Enfin, ça m'est arrivé plusieurs fois, alors quand le but est de formater un fichier visuellement, je fixe la longueur des colonnes.
Si c'est pour un traitement informatique, je me jette sur un vrai bon séparateur (tabulation, ou autre), c'est vraiment plus simple.
09/08/2017, 12h23
Dorbuntu

ecrire dans un fichier txt

Bonjour,
J'ai le même problème .je n'arrive pas à écrire dans un fichier texte.j'ai essayé plusieurs code mais ça ne marche pas.lorsque je compile le fichier en question n’apparaît pas.besoin de votre aide.je compte sur vous.merci!

1 pièce(s) jointe(s)

Bonjour
si le but rechercher ressemble a ce qui suit alors voila
Pièce jointe 301705

un exemple simple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ecriture()
    Dim fichier, rng, char
    char = " "
    Set rng = Range("A1:C4")
    tablo = rng.Value
    ReDim Tmatstring(rng.Columns.Count + 1)
    For i = 1 To UBound(Tmatstring)
        titre = titre & Cells(1, i).Text & "  "
        Tmatstring(i) = Application.Rept(" ", Len(Cells(1, i).Value) + 2)
    Next
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        For col = 1 To 3
            texte = texte & Mid(Cells(lig, col).Value & Tmatstring(col), 1, Len(Tmatstring(col)))
        Next
        texte = texte & vbCrLf
    Next
    ' Debug.Print titre & vbCrLf & texte
    fichier = "C:\Users\polux\Desktop\ttt.txt"
    x = FreeFile
    Open fichier For Output As #x
    Print #x, titre & vbCrLf & texte
    Close #x
End Sub

;)

09/08/2017, 14h27
Dorbuntu

Merci beaucoup.ca marche.Maintenant je me demandais comment faire pour récuperer le contenu d'un textbox ou listbox
18/08/2017, 19h42
Marc-L

Bonjour,

en plus simple (B-A-BA du VBA) c'est l'utilisation de variables de type texte de longueur fixe …

___________________________________________________________________________________________________________
Je suis Paris, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …