Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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
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