Bonjour,
Je dispose d'un sharepoint et je souhaite extraire dans Excel la liste de tous les fichiers contenus dans une librairie avec le type de doc, le chemin, le titre, un lien vers le fichier, date de création, date de mise à jour, auteur.
J'arrive à le faire pour toutes les propriétés sauf pour l'auteur.
Avez-vous une idée sur comment adresser le problème ?
J'ai trouvé une référence aux objets "DSO" mais je ne sais pas comment l'appliquer avec ce code.
Merci.
Cordialement,
Daria.
Je dispose d'un sharepoint et je souhaite extraire dans Excel la liste de tous les fichiers contenus dans une librairie avec le type de doc, le chemin, le titre, un lien vers le fichier, date de création, date de mise à jour, auteur.
J'arrive à le faire pour toutes les propriétés sauf pour l'auteur.
Avez-vous une idée sur comment adresser le problème ?
J'ai trouvé une référence aux objets "DSO" mais je ne sais pas comment l'appliquer avec ce code.
Code:
Sub ListeFichiers(Repertoire As String) ' Fonction
'
'Nécessite d'activer la référence "Microsoft Scripting RunTime"
'Dans l'éditeur de macros (Alt+F11):
'Menu Outils
'Références
'Cochez la ligne "Microsoft Scripting RunTime".
'Cliquez sur le bouton OK pour valider.
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.folder
Dim SubFolder As Scripting.folder
Dim FileItem As Scripting.File
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
'Récupère le numéro de la dernière ligne vide dans la colonne A.
i = Range("A65536").End(xlUp).Row + 1
'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files
On Error Resume Next
'Repository
Cells(i, 1) = Dossier.Value
'Inscrit le nom du fichier dans la cellule
Cells(i, 2) = FileItem.Name
'Ajoute un lien hypertexte vers le fichier
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=FileItem.ParentFolder & "\" & FileItem.Name
'Inscrit le nom du fichier dans la cellule
Cells(i, 3) = FileItem.Name
'Type de document
Cells(i, 4) = FileItem.Type
'Nom du répertoire - Folder 1
Cells(i, 5) = FileItem.ParentFolder
'Nom du répertoire - Folder 2
Cells(i, 6) = Cells(i, 5)
'Indique la date de création
Cells(i, 7) = FileItem.DateCreated
'Indique la date de dernier acces
Cells(i, 8) = FileItem.DateLastAccessed
'Indique la date de dernière modification
Cells(i, 9) = FileItem.DateLastModified
i = i + 1
Next FileItem
'--- Appel récursif pour lister les fichier dans les sous-répertoires ---.
For Each SubFolder In SourceFolder.SubFolders
ListeFichiers SubFolder.Path
Next SubFolder
End Sub
Merci.
Cordialement,
Daria.