Créer une bibliothèque virtuelle de documents PDF

Question

Je cherche à créer une liste Excel des documents PDF que je détiens sur mon disque dur (environ 1500 articles scientifiques et livres électroniques). J'aimerais savoir comment faire pour importer tous ces fichiers contenus dans un seul et même dossier afin d'ensuite pouvoir leur ajouter des détails (titre, auteur, édition, année, éditeur/université de publication, chemin d'accès (un clic pour ouvrir le fichier)). L'idée c'est de créer une bibliothèque virtuelle me permettant et rechercher et d'accéder rapidement à mes documents. Merci pour vos conseils ...

Math · Answer

Voici un petit exemple. Une procedure regarde dans un répertoire spécifié et liste tous les fichiers avec l'extension spécifiée. Ensuite une autre procédure place un lien hypertexte dans une feuille vers chacun des fichiers. Place tous tes fichiers PDF dans un répertoire et ensuite change la l'appel de la procédure suivante: Call ListeFichier(ActiveWorkbook.Path &amp; "\Mes PDF", "*.pdf") par Call ListeFichier("Le nom de mon répertoire", "*.pdf") voila c'est un début, dit moi si ça te convient...

cousinhub · Answer

Re- Math @ Math, FileSearch n'est plus utilisable sous 2007..... Dommage......

Math · Answer

T'as raison, j'avais pas vu sa configuration...

faudrait que j'update mes vieux codes

Voici le fichier corrigé :

https://www.excel-pratique.com/~files/doc2/7Yg1wMenu.xls

Petial, les changements à faire sont les mêmes que sur l'autre fichier.

cousinhub · Answer

Re-,

un exemple de code, qui traite le dossier principal, et les sous-dossiers :

Dim Tblo()
Dim A As Long
Sub Liste_Des_Fichiers()
Dim X
Dim Répertoire As String
A = 0
Répertoire = "D:\MesDocuments"
If Répertoire <> "" Then
    Call Contenu_Répertoire(Répertoire)
    Call FoldersInFolder(Répertoire)
    Call Traitement
End If
End Sub
'----------------------------------------
Sub FoldersInFolder(myFolderName As String)
Dim FSO As Object
Dim myBaseFolder As Object
Dim myFolder As Object

Set FSO = CreateObject("scripting.filesystemobject")
Set myBaseFolder = FSO.getfolder(myFolderName)
For Each myFolder In myBaseFolder.SubFolders
    Call Contenu_Répertoire(myFolder.Path & "\")
    Call FoldersInFolder(myFolder.Path)
Next myFolder
End Sub
Sub Contenu_Répertoire(Chemin As String)
Dim Fichier As String
Fichier = Dir(Chemin & "\*.xls")
    Do While Fichier <> ""
        A = A + 1
        ReDim Preserve Tblo(A)
        Tblo(A) = Chemin & Fichier
        Fichier = Dir()
    Loop
End Sub
Sub Traitement()
Dim Tablo1
For I = 1 To UBound(Tblo)
    Tablo1 = Split(Tblo(I), "\")
    ActiveSheet.Hyperlinks.Add anchor:=Cells(I, 1), Address:=Tblo(I), TextToDisplay:=Tablo1(UBound(Tablo1))
Next I
End Sub

Et tu lances "Liste_Des_Fichiers"