Discussion :

[dyolet]

Bonjour,
Je n'arrive pas à ouvrir ce fichier localisé sur un appareil connecté au reseau . Pourtant via un explorateur mon : \\192.168.1.227\mon_rep\mon_ficier.txt est bien lu ...
Ma commande dans access (qui fonctionne bien avec un fichier local ) devient donc

Code :

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

Set Fichier = FSO.GetFile("\\192.168.1.227\mon_rep\mon_ficier.txt").OpenAsTextStream(ForReading)

Une piste ?
Merci

[marot_r]

Bonjour,

est-ce que 192.168.1.227 a un nom ? Si oui essaye :

Code :

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

FSO.GetFile("\\NomTonServer\mon_rep\mon_ficier.txt").OpenAsTextStream(ForReading)

A+

[dyolet]

Bonjour,

est-ce que 192.168.1.227 a un nom ? Si oui essaye :

Code :

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

FSO.GetFile("\\NomTonServer\mon_rep\mon_ficier.txt").OpenAsTextStream(ForReading)

A+

Et non On n'a pas la main sur cet appareil , on peut eventuellement change son IP , mais c tout.

[marot_r]

OK, peut-être peux-tu copier le fichier en local et utiliser la copie locale comme source.

Sinon tu peux essayer avec les vielles commandes de lecture de fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
dim numfic as long:numFic=Freefile()
dim nomFic as string : nomFic="\\192.168.1.227\mon_rep\mon_ficier.txt"
dim lf as string
open nomFic for input as numFic
 
do while not eof(numFic)
   line input lf, #numFic
   'Ici ton code qui exploite lf
loop
 
close #numFic

A+