enregistrer dans un fichier texte!

[Dokko974]

salut!!

Je suis sur un projet où je fais des calculs sous vba d'excel, le problème c'est que les résultats sont sous plusieurs centaines de lignes! Je souhaiterais savoir s'il serait possible de VB d'excel d'enregistrer les résultats directement dans un fichier txt? Si oui, comment? Merci à tous d'avance pour vos lumières!

[ouisansdoute]

Bonjour,

Peut-être peux-tu utiliser l'exemple ci-dessous pour l'adapter à ton cas. Il liste le contenu d'un répertoire dans un fichier Liste.txt

Sub txt()
Dim Liste As String
Dim Canal As Variant
 Liste = Dir("C:\temp\*.*")
 Canal = FreeFile
 Open "D:\temp\Liste.txt" For Output As #Canal
 Do While Liste <> ""
    Print #Canal, Liste
    Liste = Dir
    Loop
    Close #Canal
End Sub

[Krovax]

Plus généralement, mais le principe reste le même

Sub txt()
Dim Liste As String
Dim nfAs integer
 nf= FreeFile
 Open "c:\exemple.txt" For Output As #nf
'ensuite pour ecrire dans le fichier tu fais
 
print #nf, "une ligne du fichier "
print #nf, "une autre ligne du fichier "
print #nf, "tu peux y mettre du texte des valeurs mais tu  doit travailler avec des chaines de caractère"
 
dim i as integer, j as integer
i=5
j=9
print #nf, "i vaut : " & i
print #nf "ixj vaut : " & i*j
close(nf) 'ne pas oublier de fermer le fichier a la fin 
End Sub