Problème avec la lecture d'un fichier texte

Bonjour,
J'aimerais lire une adresse stockée dans un fichier texte.
Il n'y a donc qu'une seule ligne dans ce fichier du type c:\....

J'ai essayé :

Code:

---

1 2 3 4 5 6

Sub lire() Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText("C:\Documents and Settings\klegendre\Bureau\adresse.txt") MsgBox (fileReader)   End Sub

---

Mais cela ne fonctionne pas j'ai l'erreur : Objet requis.
J'ai ajouté la référence Microsoft Scripting runtime.
Il y a peut être une autre référence à ajouter?
Ou le code est peut être mal utilisé.

Si quelqu'un a une idée.

En vous remerciant par avance,

Cordialement Kévin

Salut
Voila un exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim PathSource As String Dim FileNumS As Integer Dim TmpStr As String   'Dans PathSource tu met le chemin vers ton fichier text PathSource = "C:\Documents and Settings\klegendre\Bureau\adresse.txt"   'Ouvrir le fichier Source FileNumS = FreeFile Open PathSource For Input As #FileNumS   'lire le fichier Source 'Do Until EOF(FileNumS) 'cette boucle te serait utile si tu avais plusieurs lignes dans ton fichier texte, elle te permettrait de lire une à une chaque ligne Line Input #FileNumS, TmpStr '[...] Le contenu de la ligne est dans TmpStr 'Loop   'Fermer le fichier Close #FileNumS

---

++
Qwaz

Merci beaucoup cela fonctionne parfaitement ;)