VBA écrire dans fichier texte Résolu/Fermé

Question

Bonjour, 

J'ai un sousi pour écrire dans un fichier texte et je ne vois pas ou est mon problem.

Si quelqu'un vois mon problem ca m'arangerai. Merci d'avance.

Sub Export_to_texte_file()
Dim i As Long
Dim fso, f
Dim a()


i = 4
Do While Sheets("INT").Cells(i, 11).Value <> ""
i = i + 1
Loop
a = Sheets("INT").Range("K4:N" & i - 1).Value


Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\Documents and Settings\Stephane.Dupre\Desktop\TOTO.txt", _
ForWriting, True)
f.write (a)

End Sub



Configuration: Windows XP / Firefox 9.0.1

Utilisateur anonyme · Answer

Bonjour,

Utilise ces constantes :


Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8

If ( objFSO.FileExists(varNomFic) ) Then
    Set objFichier = objFSO.OpenTextFile(varNomFic,ctePourAjouter)
Else
    Set objFichier = objFSO.CreateTextFile(varNomFic,ctePourEcrire)
End If


Cdt

Lupin

Paf · Answer

bonjour dans ton exemple "aDim DernLigne As Long Dim maligne as String DernLigne = Range("N" & Rows.Count).End(xlUp).Row a = Sheets("INT").Range("K4:N" & i - 1).Value Const ForReading = 1, ForWriting = 2 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\Documents and Settings\Stephane.Dupre\Desktop\TOTO.txt", _ ForWriting, True) For i = LBound(a, 2) To UBound(a, 2) maligne = maligne & a(1, i) Next f.write (maligne) Bonne suite

Mrfrize · Answer

J'ai fini par trouver une solution. Voici le code final. Sub export() Dim i As Long Dim fso, f Dim a, b, c, d i = 4 While Sheets("INT").Cells(i, 11).Value <> "" 'La valeur de ta cellule a = Sheets("INT").Cells(i, 11).Value b = Sheets("INT").Cells(i, 12).Value c = Sheets("INT").Cells(i, 13).Value d = Sheets("INT").Cells(i, 14).Value 'Créer le fichier ou ouvre si il existe et le fermé Open ("C:\Documents and Settings\Stephane.Dupre\Desktop\TOTO.txt") For Append As #1 Print #1, a & Chr(9) & b & Chr(9) & c & Chr(9) & d Close #1 'Tu incrémente i pour copier la valeur de la cellule suivante i = i + 1 Wend i = 4 While Sheets("BOOL").Cells(i, 13).Value <> "" 'La valeur de ta cellule a = Sheets("BOOL").Cells(i, 13).Value b = Sheets("BOOL").Cells(i, 14).Value c = Sheets("BOOL").Cells(i, 15).Value d = Sheets("BOOL").Cells(i, 16).Value 'Créer le fichier ou ouvre si il existe et le fermé Open ("C:\Documents and Settings\Stephane.Dupre\Desktop\TOTO.txt") For Append As #1 Print #1, a & Chr(9) & b & Chr(9) & c & Chr(9) & d Close #1 'Tu incrémente i pour copier la valeur de la cellule suivante i = i + 1 Wend End Sub

VBA écrire dans fichier texte

3 réponses

Discussions similaires