Lister les caractéristiques de fichiers à partir d'une recherche

**Finndelle** · 08/08/2008, 17h26

Bonjour,

J’ai une tâche à faire pour mon boulot d’étudiante en entreprise, mais comme c’est long, je voudrais utiliser une macro avec VBA pour simplifier la tâche.

En fait je dois lister dans un classeur excel tous les powerpoint (.ppt) qui sont dans les dossiers et sous-dossiers du réseau (il y en a des milliers…), avec le titre, l’emplacement (en tant que lien hypertexte si possible), la taille, et le nombre de pages (de diapos) :
Colonne A : Titre
Colonne B : Nombre de pages
Colonne C : Taille
Colonne D : Emplacement (nom complet et détaillé, mais en lien hypertexte en plus)

J’ai découvert hier VBA, et à l’aide des forums j’ai concocté cela :
______________________________________________________

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Importationppt()
    Dim ScanFic As Office.FileSearch
    Dim NomFic  As Variant
    Dim Diag    As String
    Dim Nbr     As Long
    Dim I       As Long
    Set ScanFic = Application.FileSearch
        With ScanFic
        .NewSearch
        .LookIn = "K:\Dept LIAISONS\DLS\Dossier LS"
        .SearchSubFolders = True
        .Filename = "ppt"
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles
        Nbr = .Execute
        Diag = Format(Nbr, "0 ""fichiers trouvés""")
                I = 0
        For Each NomFic In .FoundFiles
            I = I + 1
            Sheets("Feuil1").Cells(I, 1).Value = NomFic ' adapter le nom de la feuille
        Next
                MsgBox Diag
            End With
        End Sub

______________________________________________________
ça me met en fait simplement la liste des emplacements dans la colonne A… c’est tout mais déjà pas mal pour une débutante !

J’ai vu dans l’aide de Visual Basic, que DocumentProperty que l’on pouvait ajouter tout ce que je voulais, mais j’ai aucune idée de comment ça s’écrit dans le code… et alors pour paramétrer aussi mes demandes dans les colonnes correspondantes, c’est vraiment au-dessus de mes capacités de programmatrice !

Si quelqu’un d’expérimenter pouvait m’écrire le code correspondant, ça me sauverait vraiment la vie ! sinon ce sera à la main… plus fastidieux je ne connaît pas !

Et en plus c’est pour la semaine du 11/08/08….. HELP !!
Merci d’avance !

Delphine

**SilkyRoad** · 08/08/2008, 18h33

bonsoir

tu peux utiliser la bibliothèque DSO pour récupérer les propriétés des documents :
http://silkyroad.developpez.com/VBA/...etesClasseurs/

pour créer les liens hypertextes :
http://excel.developpez.com/faq/?page=Lien

bon week end
michel

**Finndelle** · 08/08/2008, 18h57

Merci d'avoir répondu...
Seulement ça ne m'aide pas vraiment puisque :
- je ne m'y connaît pas suffisement en VBA pour pouvoir manipuler ces codes
- je ne peux ABSOLUMENT RIEN installer sur les ordis de l'entreprise
....

Pourriez-vous me donner une idée de code?
Merci,

Delphine