ListRésolu

Question

Ok Juste un question comme sa comment on fait pour saver une list

--------------------------------------------------------------------
On Error Resume Next
Dim FileName$, 


FileName$ = App.Path + "\List.data"


Open FileName$ For Output As 1
Print #1, L1.List
Print #1, List1.List
Close #1
----------------------------------------------------------------------
Sa c'est ce que je fais et sa marche pas.
Pouvez vous m'aider!

L'informatique c'est cool Mais Une erreur peu etre fatale.

econs · Accepted Answer

Les deux listes sont enregistr&#233;es l'une derri&#232;re l'autre dans le m&#234;me fichier :





On Error Resume Next
Dim FileName$,

Dim i

 


FileName$ = App.Path + "\List.data"




Open FileName$ For Output As #1

For i=0 to L1.ListCount-1


Print #1, L1.List(i)


Next i

For i=0 to List1.ListCount-1



Print #1, List1.List(i)


Next i

Close #1







Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

22max · Answer

ben a premi&#232;re vue, tu as oubli&#233; le # sur la ligne open ...

Errare Humanum Est
22maX

cs_Ulysse3 · Answer

Merci!

L'informatique c'est cool Mais Une erreur peu etre fatale.

List

3 réponses

Discussions similaires