Discussion :

[Philoupf]

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 :

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

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

[Marc-L]

Bonjour !

Soit le chemin est faux et il suffit de le corriger soit mapper un disque sur le répertoire du serveur, voir avec l'IT …

La méthode Workbooks.Open permet d'ouvrir directement un fichier compatible Excel via une URL …

___________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[mromain]

Bonjour,

Si Marc voit juste, il faudrait également essayer en récupérant le chemin UNC du classeur (fnctGetUNCPath(ActiveWorkbook.Path)).

Bonne journée

[Philoupf]

Bonjour !

Soit le chemin est faux et il suffit de le corriger soit mapper un disque sur le répertoire du serveur, voir avec l'IT …

La méthode Workbooks.Open permet d'ouvrir directement un fichier compatible Excel via une URL …

___________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Bonjour Marc merci pour la reponse, le chemin est correct , la fonction renvoie erreur d'execution 75 : erreur d'acces chemin fichier.

[Marc-L]

Alors si le chemin est correct dans le cas d'une URL cela fonctionne avec Workbooks.Open, si le chemin est correct …

Alors si le chemin est correct, cela ne concerne pas Excel, voir avec l'Informatique Interne de l'entreprise …

[Philoupf]

merci des réponses, mais je ne comprend pas comment utiliser workbooks.open dans le morceau de code
la fonction doit me permettre de remplir un textbox avec le contenu d'un fichier texte

[Marc-L]

Merci de ne pas citer inutilement l'intégralité du post juste précédent, aucun intérêt à part nuire à la lisibilité !

Pourtant rien qu'en consultant l'aide VBA interne …

Sinon ouvrir déjà manuellement le classeur depuis Excel :
- si cela ne fonctionne pas, voir avec le responsable du réseau.
- Si le classeur s'ouvre, le fermer puis activer l'Enregistreur de macro
  puis réitérer l'opération :  une base de code est livrée sur un plateau !

[Philoupf]

désole Marc je ne métrise pas bien les forums
je pense que l'on ne se comprend pas, il ne s'agit pas d'ouvrir un fichier qui se trouve sur le serveur mais de l'éditer avec la fonction vba open for input afin de lire les entrées de ce fichier
depuis une macro vba

Merci quand même de tes réponse et du temps que tu consacre à tous les novice comme moi

[Marc-L]

Pour « éditer » ce fichier, manuellement comment procèdes-tu alors ?
Où vas-tu le chercher ? Y-a-t-il au moins un rapport avec Excel ?!

Car il y a différentes méthodes pour ouvrir un fichier en VBA Excel
et si aucune ne fonctionne, cela ne concerne pas ce forum
tant que tu n'auras pas consulté en interne pour vérifier ne serait-ce déjà les droits d'accès !

Et me réponds pas que tu as les droits mais plutôt comment tu vérifies que tu as ces droits !
Et je t'ai déjà donné une méthode :  ouvrir le fichier manuellement depuis Excel  ‼

Sinon le seul conseil que l'on puisse te donner :  copier manuellement le fichier sur le disque dur local  …
(Tiens une autre méthode pour vérifier les droits !)

Là je vais vérifier si j'ai droit à des frites ce midi …

[RyuAutodidacte]

Bonjour,

comme je suis pas sûr réellement à quel type de serveur tu fais références …
(serveur distant du type http… ?? ou serveur réseau d'entreprise que tu peux faire monter pour avoir accès depuis ton poste ??? )
… je te dirige vers ce lien qui pourrait être utile :
Comment lister les lecteurs en réseau et leur nom UNC ?

Sinon comme signalé par Marc (que je salue au passage), Workbooks.Open marche très bien

[Philoupf]

Bon je vais laisser tomber pour l'instant,
oui j'ai les droit d'acces
quand je tape l'adresse http://serveur/monfichier.txt dans IE, il m'affiche mon fichier texte donc j'ai bien acces au fichier,
par contre la commande Open de vba attend un e lettre de lecteur que je n'est pas !!!

Merci quand meme de vos participation,
je clos le post

[RyuAutodidacte]

Déjà !!
As tu testé avec les liens fournis ??

[Marc-L]

par contre la commande Open de vba attend un e lettre de lecteur que je n'est pas !!!

Et non ‼‼   Car comme pourtant écrit à plusieurs reprises, il attend la même adresse que tu peux taper comme dans IE ‼

___________________________________________________________________________________________________________
Zézette épouse X, savez pas lire ?‼   (Le Père Noël est une ordure)