Discussion :

[SpaceFrog]

je suis maxi rouillé , je ne sasi mêm plsu commen trécupérer le contenu d'un fichier texte dans une variable ...

Code :

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

1
2
3
4
5
Open Chemin For Binary As #1
Get #1, , FullText
 
' Ferme le fichier avant de l'ouvrir à nouveau dans un autre mode.
Close #1

c'est du texte ...

[ouskel'n'or]

Salut la grenouille... Reste plus que de la rouille !

Code :

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

1
2
3
4
5
6
7
8
Sub LectureDunFichierTexte()
    Open "d:\FichierText.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, ligne
        msgbox ligne
    Loop
    Close #1
End Sub

[SpaceFrog]

Heu merci pour le msgbox dans la boucle
J'ai copié bêtement et ça tourne encore ...

[SpaceFrog]

l'entrée dépasse la fin du fichier ???