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 !