Discussion :

[sixhuit]

Bonjours je cherche désesperement un moyen d'afficher le contenu d'un fichier texte dans un texte box
Pour faire claire. j'ai créer dans un formulaire un combo et un textbox mon but est que à chaque fois que je click sur une ligne de la combo un fichier texte s'affiche dans le textbox.

Après plusieurs éssais je me retrouve toujours au même point.
Quelqu'un pourrait-il m'aider ?

[sixhuit]

Je viens de créer un module pour afficher le texte
voici le code :

Code :

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

1
2
3
4
Function txt(combo As String)                   ' ouverture du fichier txt
Close #1
Open combo For Output As #1
End Function

et voici le code de la combo:

Code :

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

1
2
3
4
5
6
7
Private Sub cboPlanning_Click()
    Select Case cboPlanning.ListIndex
        Case 0: Me.TxtBoxPnl = Affiche.txt("C:\Documents and Settings\Administrateur\Bureau\Devellopement\178858_1.txt")
        Case 1: Me.TxtBoxPnl = Affiche.txt("C:\Documents and Settings\Administrateur\Bureau\Devellopement\178858_2.txt")
        Case 2: Me.TxtBoxPnl = Affiche.txt("C:\Documents and Settings\Administrateur\Bureau\Devellopement\178858_3.txt")
    End Select
End Sub

Le debogueur ne trouve aucune erreur et pourtant aucun texte ne s'affiche.
Est ce que quelqu'un aurait une solution ? je vous remerci d'avance