List

Résolu
Signaler
Messages postés
100
Date d'inscription
vendredi 2 juillet 2004
Statut
Membre
Dernière intervention
25 mai 2019
-
Messages postés
100
Date d'inscription
vendredi 2 juillet 2004
Statut
Membre
Dernière intervention
25 mai 2019
-
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.

3 réponses

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Les deux listes sont enregistrées l'une derrière l'autre dans le mê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ée, c'est une chance de réponse bien adaptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
72
Date d'inscription
vendredi 8 octobre 2004
Statut
Membre
Dernière intervention
16 mars 2007

ben a première vue, tu as oublié le # sur la ligne open ...

Errare Humanum Est
22maX
Messages postés
100
Date d'inscription
vendredi 2 juillet 2004
Statut
Membre
Dernière intervention
25 mai 2019

Merci!

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