Discussion :

[VignonJHS]

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 :

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

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

[Zekraoui_Jakani]

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

[Patrice740]

Bonjour,

Pas besoin de ChDir !

Code :

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

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 !

[VignonJHS]

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

[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 :

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

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.

[Patrice740]

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 :

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

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 :

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

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

[hyacintheCARA]

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