Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Export vers fichier txt

2 réponses
Avatar
boby lapointe
Bonjour,
Quel est le code VBA pour exporter la sélection dans une listbox vers un
fichier texte ?

2 réponses

Avatar
papou
Bonjour
A adapter :
If ListBox2.ListCount = 0 Then Exit Sub
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("c:test.txt", True)
For i = 1 To ListBox2.ListCount
f.WriteLine ListBox2.List(i - 1)
Next i
f.Close
Set f = Nothing
Set fso = Nothing

Cordialement
Pascal
Avatar
boby lapointe
Merci Pascal pour ton aide


Bonjour
A adapter :
If ListBox2.ListCount = 0 Then Exit Sub
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("c:test.txt", True)
For i = 1 To ListBox2.ListCount
f.WriteLine ListBox2.List(i - 1)
Next i
f.Close
Set f = Nothing
Set fso = Nothing

Cordialement
Pascal