VBA Open fichier sur serveur
Bonjour,
je rencontre un problème pour ouvrir et récupérer les données d'un fichier texte qui se trouve sur un serveur
voici mon code
Code:
1 2 3 4 5 6 7 8 9 10
| Fichier = ActiveWorkbook.Path & "/SFAA5-Info-" & Code & ".txt" ' ( Fichier = <a href="http://nomserveur/SFAA5-Info-1310.txt" target="_blank">http://nomserveur/SFAA5-Info-1310.txt</a> )
If Dir(Fichier) <> "" Then
filenumber = FreeFile
Open Fichier For Input As filenumber
Do Until EOF(filenumber)
Line Input #1, recup
FormSFAA5_1.Remarques.Text = FormSFAA5_1.Remarques.Text & recup & Chr(10)
Loop
Close filenumber
End If |
le prog marche si le fichier est sur un lecteur physique ( C:) mais rebvoi une erreur dans le cas d'un serveur
avez vous une solution
Merci