1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Incrementer un fichier txt avec des variables

Signaler
Messages postés
2
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
3 juin 2008
 -
Messages postés
2
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
3 juin 2008
 -
Bonjour,

Je suis débutant et j'ai vraiment besoin d'un coup de main concernant un probleme.
Je cherche à ecrire un fichier .txt à partir d'une feuille excel.
Mon probleme c'est que ma feuille varie en nb de ligne et que selon la ligne a ecrire il y a des informations differentes.

j'utilise des variables dans la ligne type à écrire mais qui doit varier sur une boucle...
J'ai pas mon code sous la main, j'essais donc d'etre le plus clair possible :)

texte = var1 & var2 & "xxx" & var3

les variables var1, var2, var3 doivent changer à chaques lignes de mon tableau.

auriez vous une idée
Merci

3 réponses

Réponse 1 / 3
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
 18
Salut,

non, c'est pas très clair, on ne sait pas trop ce que tu veux faire !
Pour ecrire dans un *.txt, c'est
open "chemin" for Output[voir Append selon besoin] As #1
    print #1, "TaDonnée";
close #1

poste ton code suivant ce que  tu veux faire.

@++

le mystérieux chevalier,"Provençal, le gaulois"
Réponse 2 / 3
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
 13
Salut et Salut Mortalino,

C'est quoi au juste que tu souhaites ? ECRIRE dans un fichier Texte, ou avoir un nom de fichier Texte bien précis ?

A+
Exploreur

 Linux a un noyau, Windows un pépin
Réponse 3 / 3
Messages postés
2
Date d'inscription
lundi 11 octobre 2004
Statut
Membre
Dernière intervention
3 juin 2008
Avec le code c'est plus facile à comprendre :)

Dim agr01 As String
Dim agr02 As String
Dim agr03 As String

agr01 = Sheets("Feuill1").Range("C2").Value
agr02 = Sheets("Feuill2").Range("B7").Value
agr03 = Sheets("Feuill1").Range("C3").Value

texte = "0" & Space(190) & "0" & Space(16) & "0" & agr01 & Space(80) &  agr02
texte2 = Space(191) & "0" & Space(16) & "0" & Space(73) & agr03  & agr02 & Space(4)  & agr03 & "00"
fp = FreeFile

' Creation fichier texte

Dim Fs As Object, A As Object
Dim i As Byte

Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("C:\Users\yannickb\Desktop\test2.txt", True)

A.WriteLine texte
A.WriteLine texte2

A.Close
End If

donc mon probleme c'est que cela fonctionne pour une ligne et en fonction de cellule bien precise... alors que mon but est d'écrire plusieurs lignes variant en focntion du nombre de ligne de mon tableau de la feuille 1

En gros ma variable agr01 prend 4 lignes dans mon tableau avec comme valeur A, B, C, D et je voudrais ecrire mon txt avec sur la premiere ligne agr01=A, la deuxieme agr01=B, etc...

Merci de votre aide
Répondre Posez votre question