Lire un fichier txt et l'afficher complet dans un LabelRésolu

Question

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

mortalino · Accepted Answer

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 ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

Dane6 · Answer

Mon Fichier Txt contient plusieurs lignes, au cas où...

mortalino · Answer

ça change rien au code proposé 

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

Dane6 · Answer

Merci beaucoup mais peut-tu m'expliquer un peu le code stp ? merci

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

4 réponses

Votre réponse