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

jeanpierre

Nous a quitté

Repose en paix

• 19 Février 2010

• #2

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

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 19 Février 2010

• #3

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 !

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 19 Février 2010

• #4

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))

Cliquez pour agrandir...

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

Merci pour ton aide précieuse

 

Pièces jointes

• Liste les fichiers.xls

  27 KB · Affichages: 239
• Liste les fichiers.xls

  27 KB · Affichages: 244
• Liste les fichiers.xls

  27 KB · Affichages: 244

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 19 Février 2010

• #5

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 !

 

Pièces jointes

• ListRepFich.xls

  23.5 KB · Affichages: 253
• ListRepFich.xls

  23.5 KB · Affichages: 260
• ListRepFich.xls

  23.5 KB · Affichages: 248

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 19 Février 2010

• #6

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

Bonsoir,
Plus simple 😀
A+
kjin

 

Pièces jointes

• marmotte18.zip

  23.9 KB · Affichages: 195

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 20 Février 2010

• #7

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 !

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 20 Février 2010

• #8

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 !

 

Pièces jointes

• Liste les fichiers.xls

  28.5 KB · Affichages: 272
• Liste les fichiers.xls

  28.5 KB · Affichages: 284
• Liste les fichiers.xls

  28.5 KB · Affichages: 282

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 20 Février 2010

• #9

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.

 

Vote positif 0 Vote négatif

C

chemist

XLDnaute Junior

• 10 Février 2011

• #10

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 10 Février 2011

• #11

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

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

 

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 11 Février 2011

• #12

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

 

Dernière édition: 11 Février 2011

Vote positif 0 Vote négatif

U

Usuule

XLDnaute Nouveau

• 16 Novembre 2011

• #13

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 16 Novembre 2011

• #14

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/

 

Dernière édition: 16 Novembre 2011

Vote positif 0 Vote négatif

U

Usuule

XLDnaute Nouveau

• 16 Novembre 2011

• #15

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)"

 

Vote positif 0 Vote négatif