Discussion :

[Flodu31]

Bonjour tout le monde,

Je ne parviens pas à trouver un moyen de lister des noms de fichiers stockées sur un site internet.
Je cherche à afficher tous les fichiers excel se trouvant dans un répertoire spécifique.

Par exemple, je cherche à afficher dans une listbox les fichiers excel présents sur le serveur http://www.monsite.fr/planning/

Pourriez-vous m'aider sur le sujet?

Merci par avance,

[sogedic]

Tu peux nous montrer ce que tu as déjà fait et ou précisément tu bloques ?

[Flodu31]

En fait rien concernant le serveur http.
J'arrive à ouvrir des dossiers en local, des fichiers , ouvrir des instances excel en cache pour travailler sur le fichier sans que l'on voit le fichier en question.
Là où je bloque c'est comment travailler sur un serveur de la même manière que l'on pourrait le faire en local...
Par exemple, je ne comprend pas comment gérer une URL plutôt qu'un chemin de dossier classique

[Flodu31]

J'ai trouvé ce bout de code sur le forum

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
21
22
23
24
25
26
Option Explicit
 
Sub ListFilesInFolder(strFolderName As String)
' adapté de Ole P Erlandsen
' necessite d'activer la reference Microsoft Scripting RunTime
 
Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
 
 
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
MsgBox oFile.Name
 
Next oFile
 
 
End Sub
Private Sub CommandButton5_Click()
ListFilesInFolder "http://www.monsite.fr/Documents/Planning/"
 
End Sub

Je demande juste afficher via MsgBox pour débugguer et voir si cela fonctionne.
Via ce code, on me dit "chemin d'accès introuvable" et cela correspond à cette ligne : Set oSourceFolder = FSO.GetFolder(strFolderName)

[Flodu31]

Bon en fait j'ai contourné le problème en mappant mon sharepoint sur un lecteur local, et du coup je peux utiliser les fonctionnalités classiques VBA.

En revanche, je cherche toujours comment travailler directement sur sharepoint sans passer par là.
Si quelqu'un a une idée, je continue à investiguer de mon côté

[Flodu31]

Bon ca y'est...

Cela consistait juste à changer les / par des \, supprimer le http: et rajouter un \DavWWWRoot\

Code :

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

1
2
3
4
Private Sub CommandButton5_Click()
ListFilesInFolder "\\www.monsite.fr\DavWWWRoot\Documents\Planning\"
 
End Sub

Auto-résolution mais c'est + satisfaisant

A+