Lire un fichier txt et l'afficher complet dans un Label

Résolu
Dane6 Messages postés 24 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 28 mai 2008 - 24 mai 2008 à 09:33
Dane6 Messages postés 24 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 28 mai 2008 - 26 mai 2008 à 17:22
Bonjour,

Pouvez-vous me dire comment lire un fichier Txt dans sa totalité et le stocker dans une variable pour l'afficher dans le Label.
Quand j'utilise : Open "fichier" for append as #1
                            input #1, variable
                         Close #1
   
                         Lbl1.Caption = variable

Il me met que c'est pas la bonne méthode, pourquoi je ne sais pas... ???
Alors je mets ceci : Open "fichier" for input as #1
                                input #1, variable

                              Close #1

   

                         Lbl1.Caption = variable

Cela fonctionne toujours pas...
Alors je fais une p'tite recherche et je trouve :
Open "J:\VB_Qualification_2008_Finale\DAT\InscriptionEvenement.txt" For Input As #1
        While Not EOF(1)
            Input #1, a$
            Text1 = Text1 + Chr$(13) + Chr$(10) 
        Wend
Close #1

Mais rien ne s'affiche ... je sais plus quoi faire
Pouvez-vous m'aider svp
Merci d'avance

4 réponses

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
24 mai 2008 à 09:36
salut;

    Dim sContenu As String
    Dim ff As Integer
    
ff = FreeFile

Open sCheminEtNomEtExtension For Input As #ff
    sContenu = Input$(LOF(ff), #ff)
Close #ff
MsgBox sContenu
 ~ <small>[code.aspx?ID=39466 Mortalino] ~
Colorisation automatique</small>

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
3
Dane6 Messages postés 24 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 28 mai 2008
24 mai 2008 à 09:36
Mon Fichier Txt contient plusieurs lignes, au cas où...
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
24 mai 2008 à 09:37
ça change rien au code proposé

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA
0
Dane6 Messages postés 24 Date d'inscription mercredi 16 avril 2008 Statut Membre Dernière intervention 28 mai 2008
26 mai 2008 à 17:22
Merci beaucoup mais peut-tu m'expliquer un peu le code stp ? merci
0
Rejoignez-nous