Ouvrir un repertoire existant dans sharepoint https

Bonjour,
j'aimerais fais subir un traitement à tous les fichiers qui se trouve dans un répertoire SharePoint.
Je le fais très bien avec un répertoire "C:\dossier\" avec la méthode Dir.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ouvrir() Dim monfichier As String ChDir "C:\dossier\" monfichier = Dir("*.*") Do While monfichier <> "" Workbooks.Open Filename:=monfichier   MON TRAITEMENT monfichier = Dir() Loop End Sub

---

J'aimerais savoir quelle méthode je peux utiliser pour le faire.

merci

Pourquoi ne pas référencer le chemin du sharepoint dans "ChDir".
Autre piste: exploiter la puissante fonctionnalité de "file System Object ou fso" après avoir activé "Microsoft Scripting Runtime Library" dans les references. Le net regorge d'exemples au sujet de fso

Bonjour,

Pas besoin de ChDir !

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub ouvrir() Dim monFichier As Workbook Dim nomFichier As String nomFichier = Dir("C:\dossier\*.*") Do While nomFichier <> "" Set monFichier = Workbooks.Open(Filename:=nomFichier) ' TON TRAITEMENT monFichier.Close True nomFichier = Dir() Loop End Sub

---

Il faut bien sûr que le dossier ne contienne que des fichiers Excel !

Merci de vos réponses.

je précise que avec l'adresse du répertoire dans SharePoint, on a un "http:://....".

Et avec une adresse http, ça ne passe pas. Je vais déjà essayer avec la méthode FSO.


Merci

Hello!
Ni FSO ne marche. J'ai trouvé cette méthode qui permet d'utiliser un fichier sur un serveur. Mais là, j'ai un problème: Objet requis.
est-ce un problème de droit ou autre.

Code:

---

1 2 3 4 5 6 7

Sub ouvrir() Dim mfichier As String mfichier = Dir("\\monserveur.com@SSL\sites\Forms\AllItems.aspx?id=%2Fsites%2FDPMIDM%2FShared%20Documents%2FData%20stage%2FRefDocumentaire\*.xlsx*") Do While mfichier <> "" Set mfichier = Workbooks.Open(Filename:=mfichier) Loop End Sub

---

Merci de votre contribution.

Citation:

---

Envoyé par VignonJHS

Hello!
Ni FSO ne marche. J'ai trouvé cette méthode qui permet d'utiliser un fichier sur un serveur. Mais là, j'ai un problème: Objet requis.
est-ce un problème de droit ou autre.

Code:

---

1 2 3 4 5 6 7

Sub ouvrir() Dim mfichier As String mfichier = Dir("\\monserveur.com@SSL\sites\Forms\AllItems.aspx?id=%2Fsites%2FDPMIDM%2FShared%20Documents%2FData%20stage%2FRefDocumentaire\*.xlsx*") Do While mfichier <> "" Set mfichier = Workbooks.Open(Filename:=mfichier) Loop End Sub

---

Merci de votre contribution.

---

C'est une erreur 'normale' : la variable mfichier est de type String mais l'instruction Set sert à attribuer un Objet à une variable.
Cette variable doit donc être de type objet, soit générique (Object), soit spécifique (Workbook) où encore multi-type (Variant).
Il est évidemment préférable de choisir une déclaration spécifique.
Par exemple :

Code:

---

1 2 3 4 5 6 7 8 9

Sub ouvrir() Dim wbkFichier As Workbook Dim strFichier As String strFichier = Dir("\\monserveur.com@SSL\sites\Forms\AllItems.aspx?id=%2Fsites%2FDPMIDM%2FShared%20Documents%2FData%20stage%2FRefDocumentaire\*.xlsx*") Do While strFichier <> "" Set wbkFichier = Workbooks.Open(Filename:=strFichier) strFichier = Dir() Loop End Sub

---

Merci Patrice740. J'ai trouvé mon erreur et je l'ai corrigé depuis. Mais le programme trouve le premier fichier(son nom) et n'arrive cependant pas à l'ouvrir.

C'est comme ci c'était une vue du vrai fichier. Il me demande de voir dans le système , "SysData". Il se trouve que je n'ai pas le droit de toucher au système.

J'espère qu'il existe un autre moyen. Enfin, je la cherche.

Merci