Résultat recherche dos en excel

[zazou5908]

Bonsoir à tous (Accrocs, Mordus ou Amateur comme moi)



J'aimerrais savoir s"il est possible au départ d'excel de lancer une recherche de fichiers au départ de la racine du disque ou d'un sous répertoire sur base d'un critère (extension du fichier, string de caractères avec caractères joker ? / * ) et / ou de la taille minimum, maximum ou un intervalle de taille et de récupérer l'ensemble des réponses dans Excel en colonne:

1) le path complet du fichier
2) le nom complet du fichier
3) la taille du fichier
4) la date du fichier
5) l'heure du fichier

La fonction rechercher dinternet explorer ne permet pas de sauver le résultat de la recherche

Exemple:

Rechercher au départ de f:\test (et tous les autres sous répertoires contenus en dessous) tous les fichiers dont la taille est supéreure à 5.000 Kb

Rechercher au départ de f:\test (et tous les autres sous répertoires contenus en dessous) tous les fichiers excel dont la taille est comprise entre 2.000 Kb et 10.000 Kb.

Rechercher au départ de f:\test (et tous les autres sous répertoires contenus en dessous) tous les fichiers dont le nom commence par "f0"


Rechercher au départ de f:\test (et tous les autres sous répertoires contenus en dessous) tous les fichiers dont le nom contient "f0"

Voilà è J'espère que tout est suffisament clair et qu'il y aura quelqu'un qui pourra m'aider à solutionner mon problème.

Bien le bonsoir et au plaisir de vous lire !

 

[myDearFriend!]

Re : Résultat recherche dos en excel

Bonsoir zazou5908, le Forum,

Je pense que dans ce fil :
https://www.excel-downloads.com/thr...-excel-des-musiques-de-mon-dossier-mp3.93518/
le fichier joint à mon post du 24/03/2008 14h55 pourrait être une bonne base pour répondre à ton problème...

Cordialement,

 

[zazou5908]

Re : Résultat recherche dos en excel

Bonsoir Mydearfriend

Tout d'abord merci pour cette réponse rapide et efficace pour qui cherche yb type de données bien précise et je vais l'utiliser pour regrouper mes données par type.

Je m'explique:

Dans un disque dur externe, j'ai un répertoire qui contient 383 autres répertoires à la racine et je ne sais combien de sous répertoire.
Ce répertoire contient plus de 300.000 fichier.

C'est ce que j'ai pu récupérer de mon ancien disque de backup qui s'est ..... crashé alors qu'il n'avait fonctionné qu'une dizaine d'heures (merci IOMEGA)

Je crois que j'ai pu tout récupérer mais les noms des fichiers ont disparus rt le nom du fichier est égal au numéro du 1er secteur du fichier.

C'est pourquoi la recherche par taille est aussi importante pour moi parce que je recherche les fichiers de ma compta et quelques gros fichier Excel contenant comme toujours des données indispensables. Pour ce dernier point, ton application top. J'espère seulement que je ne vais pas exploser la limite des 63.000 lignes ' Et voilà pourquoi la sélection sur base du poids du fichier est si importante pour moi !

Allez encore UN TOUT GRAND MERCI pour ce que tu m'as donné si rapidement et au plaisir de lire d'autres réponses.

Bonne nuit.

 

[myDearFriend!]

Re : Résultat recherche dos en excel

Re,

Tu trouveras ci-joint une version du fichier qui devrait peut-être répondre à ta demande spécifique, à savoir : une analyse d'un dossier et de ses sous-dossiers, un filtre sur le nom et/ou l'extension des fichiers ainsi qu'un filtre sur le poids des documents.

Compte tenu de ta version d'Excel (2003), attention toutefois au dépassement de capacité possible, si le résultat contient plus de 65535 fichiers.

Lancer la procédure en cliquant sur le logo mDF du premier onglet et prendre patience...
(ce n'est pas une bête de course ! J'imagine qu'en exploitant la méthode FileSearch, on devrait pouvoir obtenir sans doute un traitement plus rapide... si d'aucuns veulent tenter l'expérience...).

Cordialement,

 

[Brigitte]

Re : Résultat recherche dos en excel

Bonjour,

Juste pour dire à Didier que comme je regarde pas assez l'index du forum, j'ai loupé cette question (aurais je fait le lien en plusss ?) et que j'aurais pu également renvoyer vers ton merveilleux petit fichier ; mais que sinon en effet, ce système est vraiment efficace. Il me rend encore de très grands services. Merci encore de l'avoir si bien développé.

C'est une nouvelle version ?

Bisous rétroactifs.

 

[zazou5908]

Re : Résultat recherche dos en excel

Bonsoir Didier

Merci pour l'effort que tu as accompli !! Oui oui , j'ai vu l'heure à laquelle tu as fait ton post !

Seulement, je croisqu'il doit y avoir une limitation quelque part car ton programme me renvoie un message d'erreur "Le chemin à analyser n'esty pas reconnu" avec le seul bouton "OK" qui ferme le tout !

Mes données à analyser se trouve sur un nouveau gros disque que j'atteins via mon petit réseau chez moi !

Y a t'il une solution possible ?

Si tu décides de m'accorder encore quelques instants de ton temps, Merci pour l'effort complémentaire que tu vas devoir encore accomplir !

A bientôt.

 

[myDearFriend!]

Re : Résultat recherche dos en excel

Bonsoir zazou5908, le Forum,
Bisous Brigitte,

zazou5908, j'imagine que le problème vient du chemin réseau. Et comme je suis loin d'être un spécialiste en la matière, désolé... je sèche.

Le problème provient visiblement de cette partie du code :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] btnScan_Click()
[COLOR=NAVY]Dim[/COLOR] Chemin [COLOR=NAVY]As String[/COLOR]
   [COLOR=GREEN]' On Error Resume Next[/COLOR]
    Chemin = Dir(txtChemin.Text)
    [COLOR=NAVY]If[/COLOR] Chemin <> "" [COLOR=NAVY]Then[/COLOR]
        lblPatient.Visible = [COLOR=NAVY]True[/COLOR]
        ScanClasseurs txtChemin.Text, txtNom.Text, Val(txtMin.Text), Val(txtMax.Text)
        Unload Me
    [COLOR=NAVY]Else[/COLOR]
        MsgBox "Le chemin à analyser n'est pas reconnu !"
    [COLOR=NAVY]End If
End Sub[/COLOR]

L'expression Chemin n'est visiblement pas reconnue comme étant une adresse valide dans ton cas de figure...

La question est de savoir déjà si la version précédente (voir lien plus haut) fonctionnait ou non pour ce même lecteur réseau.
Dans l'affirmative, alors tu peux peut-être tenter de changer la ligne :

Chemin = Dir(txtChemin.Text)

par :

Chemin = txtChemin.Text

Dans la négative, alors désolé, je ne peux t'aider davantage et j'en conclus que cette solution n'est pas adaptée à ton problème particulier et qu'il faut compter sur d'autres propositions... (recrée un nouveau sujet au besoin).

Cordialement,

 

[zazou5908]

Re : Résultat recherche dos en excel

Re bonsoir Didier

Je viens d'essayer en local sur le disque D de mon portable qui est mon disque "DATA". Il est partiotionné en NTFS et j'ai un message d'erreur qui doit être lié à une permission ou quleque chose comme cela

"Erreur d'exécution'70':
Permission refusée

Le bouton Débogage affiche:

Private Function lstDossiers(Chemin As String, Optional Debut As Boolean) As Variant
Dim Dossier As Object, SD As Object, D As Object
Static TabTemp() As String
If Debut Then
ReDim TabTemp(1 To 1)
TabTemp(1) = Chemin
End If
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
'examen du dossier courant
For Each D In Dossier.subfolders
ReDim Preserve TabTemp(1 To UBound(TabTemp) + 1)
TabTemp(UBound(TabTemp)) = D.Path
Next
'Traitement récursif des sous-dossiers (d'après un code de F.Sigonneau)
For Each SD In Dossier.subfolders
lstDossiers SD.Path
Next SD
lstDossiers = TabTemp()
Set Dossier = Nothing
End Function


Voilà le résultat de mes derniers tests.

Merci pour ton aide et à plus tard.

 

[zazou5908]

Re : Résultat recherche dos en excel

Re Re

J'ai fait ta modif. Sur le disque local du portable, cela donne toujours la même erreur d'éxécution. Par contre sur le disque réseau, cela a l'air de tourner. On va bien voir ce que cela donne.
Encore merci et à plus tard.

 

[zazou5908]

Re : Résultat recherche dos en excel

Bonsoir Didier

J'avais beaucoup d'espoir dans le fait que cela durait longtemps mais en fin de compte, j en'ai eu aucun résultats.

J'ai lancé la recherche sur les fichiers dont le poids était compris entre 5 et 200 mégas. La fonction de recherche d'internet explorer me donnait 1561 fichiers dont le poids dépassaient les 5 mégas. Donc pas de soucis du côté d'un excès de lignes.

Merci de t'être penché sur mon problème. Je vais continuer à farfouiller sur le net pour voir s'il n'y pas déja eu en ce bas monde quelqu'un avec le même problème que le mien.

Encore merci à toi et à tout les autres qui résolvent tant de problèmes pour des personnes avec qui on ne partage en fait que la passion d'utiliser Excel !

A bientôt.

 

[Roland_M]

Re : Résultat recherche dos en excel

bonsoir

Permission refusée est probablement dû à l'accès à des dossiers protégés, genre dossier system

quand aux 65536 lignes c'est un problème qui peut façilement être contourné
avec un compteur de ligne est un fois > 65535 décaler l'affichage des colonnes par la droite !
et là on peut faire pas mal de fois les 65535 lignes !

Roland

 

[zazou5908]

Re : Résultat recherche dos en excel

Bonjour Roland,

Merci pour l'idée ! C'est tellement simple que je me traite d'idiot de ne pas y avoir pensé tout seul !

Pour les droits sur les répertoirs, c'est possible mais je suis déclaré comme "Administrateur" . Donc théoriqueemnt je peux lire toutes les données.

Merci pour ta contribution et bonne journée.