list box et common dialog

Bonjour !!

J'essaye d'enregistrer dans un fichier texte, le contenu d'une listbox mais ça ne marche pas.

Dim STR_Fichier As String

CD1.ShowSave
STR_Fichier = CD1.FileName
Open STR_Fichier For Append As #1
Print #1, tcpip.Text
Wend
Close #1

J'ai essayé également avec un while pour parcourir ma listbox avec la propriété list count mais rien n'y fait !!

Si vous avez une idée n'hésitez pas moi je patauge

Merci d'avance

Dim STR_Fichier As String Dim i as Long CD1.ShowSave STR_Fichier = CD1.FileName Open STR_Fichier For Append As #1 For i = 0 to tcpip.ListCount -1 Print #1, tcpip.List(i) Next Close #1

Christophe R.

Merci crenaud 76 ou christophe, je sais pas par lequel t'appeler mais ça marche. Par contre j'essaye de comprendre maintenant, pourquoi tu mets listcount -1 ?

le reste pas de pb mais listcount-1 je comprend pas

Et encore merci

Parce que Listcount te renvoie le nombre d'élément dans la liste et que ces meme éléments porte un index commencant à zéro pour le 1er. Donc pour n item, les index vont de 0 à n-1, et ListCount te renvoie n. Il faut donc faire la boucle For de 0 à Listcount-1

Christophe R.

Oki je te remercie pour les explications c extra

Merci encore christophe tu m'as bien aidé

@++