Discussion :

[frag132]

Bonjour a tous,

J'ai encore besoin d'un petit tuyau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub textfilecreate()
        Dim file As New System.IO.StreamWriter("c:\sauve\Assistance\test" & Now.ToString("ddMMyyyy-HHmmss")".txt") 'cette ligne ne marche pas
        file.WriteLine("Centrale : " & Centralename.Text)
        file.WriteLine("Agence : " & Agency.Text)
        file.WriteLine("Déstinataire : " & CheckedListBox1.SelectedItems) 'Cette ligne ne marche pas
        file.WriteLine()
        file.WriteLine("NOM : " & TextBox3.Text)
        file.WriteLine("Prénom : " & TextBox2.Text)
        file.WriteLine()
        file.WriteLine()
        file.WriteLine("Commentaire : " & TextBox1.Text)
        file.WriteLine()
        file.WriteLine("Heure :" & Now.ToString("HH:mm:ss"))
        file.WriteLine("Date : " & Now.ToString("dd/MM/yyyy"))
        file.Close()
    End Sub

Voila mon problème est que je n'arrive pas a intégrer tous les éléments cochés dans ma checkedlistbox1. quand je met Checkedlistbox1.selecteditem, cela ne m'en met qu'un seul.

Je n'arrive également pas a insérer la date et l'heure dans le nom du fichier...

Et que dois-je rajouter a mon code pour que le fichier soit en écriture seulement, que seul l'administrateur puisse changer ses attributs ? j'ai suivi les tutos de ce site, mais rien n'y fait les codes rentrés sont faux... ou comment tout simplement sortir ce rapport en pdf ?..

Merci beaucoup

[asmduty]

"CheckedListBox1.SelectedItems" est une liste, tu as de la chance qu'il te retourne le premier ...
Il faut parcourir la liste pour récupérer tous les éléments et les afficher.

"Now.ToString("ddMMyyyy-HHmmss").txt"

le .txt tu dois le concatener, là il essaye de chercher une propriété ou méthode .txt d'un string !

[frag132]

"CheckedListBox1.SelectedItems" est une liste, tu as de la chance qu'il te retourne le premier ...
Il faut parcourir la liste pour récupérer tous les éléments et les afficher.

"Now.ToString("ddMMyyyy-HHmmss").txt"

le .txt tu dois le concatener, là il essaye de chercher une propriété ou méthode .txt d'un string !

Salut et merci pour ta réponse.
Je vais essayer de concatener le .txt en pensant savoir ce que cela veux dire. (EDIT : C'est bon ! j'ai juste oublié le "&")

Par contre je ne comprend pas ce que tu veux dire pour la checkedlistbox1 ? dans mon programme j'ai laissé "checkedbox1.selecteditem" car il marche mais ne m'affiche que le premier...

[asmduty]

SelectedItems te retourne les éléments sélectionnés (et non pas coché, je n'avais même pas fait attention) donc dont la ligne est en surbrillance.

Ce que tu cherches c'est la liste des éléments cochés (checked).
C'est une liste, tu ne peux pas afficher une liste, tu dois la parcourir pour récupérer chaque élément de la liste et l'afficher.

[frag132]

SelectedItems te retourne les éléments sélectionnés (et non pas coché, je n'avais même pas fait attention) donc dont la ligne est en surbrillance.

Ce que tu cherches c'est la liste des éléments cochés (checked).
C'est une liste, tu ne peux pas afficher une liste, tu dois la parcourir pour récupérer chaque élément de la liste et l'afficher.

ok c'est déjà plus clair ! je ne faisais pas la difference entre selected et checked.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

file.WriteLine("Déstinataire : " & CheckedListBox1.CheckedItems.Item)

Hélas j'avais déjà essayé mais la ligne avec checkeditems n'est pas valide...
Quelle syntaxe dois-je adopter ? Je suis bloqué complet

[asmduty]

Tu ne sais pas parcourir une liste ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim mon_text = ""
For each item as String in CheckedListBox1.CheckedItems
 
mon_text += item & ", "
 
Next

Tu vas parcourir toute la liste et créer une chaine avec tes éléments séparés par des virgule.
Il te restera une virgule à la fin à supprimer ..