Discussion :

[Pentos60]

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 :

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

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

[Qwazerty]

Salut
Voila un exemple

Code :

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

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

[Pentos60]

Merci beaucoup cela fonctionne parfaitement