Liste des fichiers d'un répertoire avec espace utilisé

[marmotte18]

Bonjour,

Je souhaiterais obtenir pour un type de fichier (xls, doc, ... ou tous) et d'un répertoire donnés, la liste des fichiers qui s'y trouvent.

4 champs à récupérer :

• le chemin complet du fichier
• le nom du fichier
• le type de fichier
• l'espace occupé par ce fichier

J'arrive à faire les 3 premiers points mais pour le 4ème paramètre, je ne sais pas faire.

Merci par avance pour votre aide

 

[jeanpierre]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonsoir marmotte18,

L'ImputBox ne me semble pas très adapter à ce genre de recherche, trop d'éléments à renseigner alors que l'on ne les connaiî pas forcément.

Regarde ce lien, s'il t'apporte quelques éléments nouveaux. : Gestion des fichiers et répertoires

Bonne soirée.

Jean-Pierre

 

[marmotte18]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonsoir JeanPierre,

Je viens de survoler le lien que tu m'as communiqué. Il me paraît très intéressant et il me semble avoir vu ce qui m'intéresse.

Je creuserai cela demain et je te tiens informé.

Merci pour ton tuyau !

 

[marmotte18]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Jeanpierre,

Je n'ai pas pu résister à la tentation d'essayer dès ce soir.

Il suffisait d'ajouter le code :

'Détermination de la taille du fichier
'-------------------------------------
ActiveSheet.Cells(Lig + 3, 4).Value = FileLen(.FoundFiles(Lig))

Ci-joint ma macro qui marche exactement comme je le souhaitais.

Merci pour ton aide précieuse

 

[Roland_M]

Re : Liste des fichiers d'un répertoire avec espace utilisé

bonsoir marmote

taper le répertoire est excessivement fastidieux et rebutant !
si tu veux t'inspirer de la routine dans cet exemple pour la saisie du chemin
sans avoir à le taper manuellement !
à adapter évidemment !

 

[kjin]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonsoir,
Plus simple 😀
A+
kjin

 

[marmotte18]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonjour Roland M,

Effectivement, ta proposition est plus confortable pour choisir le répertoire voulu. Je vais voir comment l'adapter à ma macro.

NB : en ce qui me concerne, je ne saisissais pas le chemin : je faisais du copier / coller

Merci pour cette amélioration !

 

[marmotte18]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonjour Roland M,

A partir de ta proposition, j'ai adapté ma macro qui devient vraiment plus sympa !

Merci encore une fois !

 

[marmotte18]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonjour Kjin,

Merci également de ta solution qui est vraiment très compacte. Je ne comprends pas grand chose mais je la garde cependant soigneusement avec moi.

 

[chemist]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonjour

J'ai essayé cette macro qui me serait bien utlise mais ça arrête toujours à With Application.FileSearch

avez-vous une idée

J'utilise excel 2003

 

[kjin]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonsoir,
Filesearch n'est pas pris en charge par xl2007 !
A+
kjin

 

[kiki29]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Pour Chemist : salut à tous, va jeter un oeil sur Un complment FileSearch pour Excel 2007
Il existe cependant des approches plus simples qu'un module de classe et Gog t'aidera

 

[Usuule]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonjour le forum
Je réactive ce post car il répond presque à mes attentes.

kjin j'ai utilisé ton fichier "marmotte18" et je trouve ta solution très sympa.
Par contre n'ayant pas compris le code à fond, je voulais coller le résultat dans une feuille Excel mais je n'ai pas trouvé.

Pourriez-vous m'aider ?

Merci à vous

 

[MJ13]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Bonjour Usuule


J'ai essayé le dernier fichier de Marmotte, mais il n'a pas fonctionner avec Win 7 et XL2007 😕.

Aujourdhui, il vaudrait mieux éviter d'utiliser le complément Filsearch 😱.


Tu peux aussi tester ce fichier (voir l'onglet DIR):
https://www.excel-downloads.com/thr...e-html-pour-creer-une-base-de-donnees.160810/

 

[Usuule]

Re : Liste des fichiers d'un répertoire avec espace utilisé

Merci MJ13
Je suis sur Win et Excel 2007 et le fichier "Marmotte18" fonctionne.

Par contre celui du lien ne fonctionne pas. La macro bug sur "Set Dossier = fso.GetFolder(LeDossier)"