Liste des Extensions sur un disque dur

[Caninge]

Bonjour à tous,

Tout n'est pas possible avec EXCEL.

Mais je pose quand même la question.

Peut-on lister toutes les extensions existantes sur un disque dur ?

EXEMPLE:

Disque local (K) :

Extensions / Nombre

BMP 2
CDA 3
CDG 4
DIV 1
DOC 7
XLS 10

Merci

 

[skoobi]

Re : Liste des Extensions sur un disque dur

Bonjour,

voici un exemple de code à adapter:

Sub extension_nb()
With Application.FileSearch
    .LookIn = "c:\"
    .Filename = "*.log"
    .Execute
    If .FoundFiles.Count > 0 Then MsgBox "il y a " & .FoundFiles.Count & " extension .log"
End With

End Sub

Tout n'est pas possible avec EXCEL

😉

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonjour Skoobi,

C'est un bon début.

selon ce que j'ai pu comprendre en lisant la macro,c'est qu'avec cette procédure on

recherche le nombre de fichiers avec l'extension log.

ce n'est pas tout fait ça que je veux.

je voudrais une liste de tous les extensions.

regarde mon fichier.

A plus MERCI !!

 

[skoobi]

Re : Liste des Extensions sur un disque dur

Re,

voici le code spécifique à ton cas:

Sub extension_nb()
For Each extension In Range([C7], [C7].End(xlDown))
    With Application.FileSearch
        .LookIn = "k:\"
        .Filename = "*" & Left(LCase(extension.Value), 3)
        .Execute
        extension.Offset(0, 1).Value = .FoundFiles.Count
    End With
Next
End Sub

Edit: j'ai apporté une petite modification, "If .FoundFiles.Count > 0 Then " n'est en fait pas nécessaire 😉

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonjour Skoobi.

J'ai essayé sur un répertoire qui contient 9 fichiers EXCEL.

J'aurais du avoir cette réponse:

XLS 9

Mais j'ai eu des 9 dans la colonne D à perte de vue.

Et la macro tournant en boucle.

Merci et bon dimanche.

 

[skoobi]

Re : Liste des Extensions sur un disque dur

Re bonsoir Caninge,

ok, voici la correction:

Sub extension_nb()
For Each extension In Range([C7], [B][COLOR="Green"][C65536].End(xlUp)[/COLOR][/B])
    With Application.FileSearch
        .LookIn = "k:\"
        .Filename = "*" & Left(LCase(extension.Value), 3)
        .Execute
        extension.Offset(0, 1).Value = .FoundFiles.Count
    End With
Next
End Sub

 

[JCGL]

Re : Liste des Extensions sur un disque dur

Bonjour à tous,

Pourquoi juste l'extension et le nombre ?

Un essai pour avoir toutes les informations possibles, sur un fichier, dans un Dossier ou un Répertoire donné.

Merci à Ti et à MichelXLD pour leur participation (ah bon, vous ne saviez pas arf)

Déposé sur un FTP, fichier trop lourd malgré le "statut Supporter", mais spécialement dédié à XLD, VeriTi et mDF... et un peu à moi aussi

Le Grand GO, choix du Dossier, Répertoire
Le Petit GO, répertoire sélectionné
Donc en premier le Grand GO

Ce lien n'existe plus

A+

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonjour Skoobi,JCGL

En fait en cherchant un peu plus dans les exemples, j'ai trouvé une procédure qui me va bien.

Une procédure qui liste tous les fichiers d'un répertoire.

Je voudrais rajouter une macro qui me liste toutes les extensions récupérées ou bien qui fonctionne à la suite de l'autre (c'est mieux).

J'ai essayé avec des formules et j'ai trouvé mais la macro s'éternise.

Voir dans la feuille "Récap"

Merci

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Jour Bon, via par exemple une collection, en plaçant le code à la place idoine

.....
Dim Coll As Collection, Ext As String, Pos As Long
    Set Coll = New Collection
.....
                    Pos = InStr(.Item(i), ".")
                    If Pos > 0 Then
                        Ext = Right(.Item(i), Len(.Item(i)) - Pos)
                        On Error Resume Next
                        Coll.Add Ext, Ext
                    End If
.....

    For i = 1 To Coll.Count
        ShRecap.Cells(i, 2) = Coll.Item(i)
    Next i
.....

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Bonjour Kiki,

merci d'avoir répondu,

Excuses-moi je ne comprends pas trop,

Que dois-je faire ?

Merci

Bonne journée!

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Re 2 méthodes ( la tienne + une autre ) , sans doute à adapter et améliorer

 

[Caninge]

Re : Liste des Extensions sur un disque dur

Re,

J'ai adopté la mienne je pense, un peu perdu.

J'ai rajouté une ligne pour supprimer la zone dans la feuille fichier.

bonne endroit (à voir).

Oui, est-ce possible de n'avoir que les extensions ( bmp, Mp3, Iso Etc....)dans la colonne et dans l'ordre alphabétique.

a plus

merci

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Re l'ultime

 

[Caninge]

Re : Liste des Extensions sur un disque dur

re,

Kiki,

j'aimerais bien conserver le fichier que je viens de t'envoyer dernièrement.

Il me va bien.

Par contre pour les résultats dans la colonne où sont écris les extensions, il y a parfois des morceaux de fichiers.

A plus

 

[kiki29]

Re : Liste des Extensions sur un disque dur

Re,Bon alors .....
Remarque : Si tu passes a Excel 2007 FileSearch n'existe plus et ton code sera à revoir
Ce lien n'existe plus