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