.FoundFiles dans 2007Résolu

Question

Bonjour a tous,

J'ai un petit soucis sur le comptage de dossier.
.FoundFiles fonctionnait avec 2003 mais dans l'office 2007 cela ne semble plus fonctionner.

QQ'1 a t-il une idée ?
Merci de vos réponses,

Lezeps ;-))

cs_Jack · Accepted Answer

Si tu avais utilisé la coloration syntaxique (3eme icone à droite), ces indentations seraient toujours là.

En effet, cette fonction a disparue, bien que toujours présente dans l'aide de Office 2007.

Tape "Office 2007 FileSearch" sur ton moteur de recherches favori et tu trouveras une solution de remplacement très proche du FileSearch (complément XLA)

cs_Jack · Answer

Salut

Il faudrait savoir de quel objet tu parles.
Qu'y a t-il devant le point de .FoundFiles ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

ZEPS256 · Answer

bonjour Jack,

Je m'en sert pour une variable qui compte le nb de dossier ou fichiers dans un dossier que je choisis via une msgbox
 => "For i = 1 To .FoundFiles.Count"

Or ma variable est égal à 0 dans 2007. il ne doit donc pas comprendre " .FoundFiles.Count"

dans 2003, j'avais bien le nombre de "fichiers,dossiers"

Merci de ta réponse

Lezeps ;-))

ucfoutu · Answer

Bonjour
Ce que tu écris là ne pouvant fonctionner que dans un bloc With, montre la totalité de ce bloc !


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ZEPS256 · Answer

Voici, voilà...

Mais comme je le disais, avec O2003c pas de soucis, c'est en 2007 que j'ai un pb.
En amont j'ai la déclaration des variables, et tout et tout.

 With Application.FileSearch
 .NewSearch
 .LookIn = Directory
 .Filename = "*.*" ' this can be '*.*
 .SearchSubFolders = True
 .Execute
 For i = 1 To .FoundFiles.Count
If FileDateTime(.FoundFiles(i)) > StartDate Then
 Cells(R, 1) = .FoundFiles(i)
 Cells(R, 3) = Right(Cells(R, 1), Len(.FoundFiles(i)) - InStrRev(Cells(R, 1).Value, ""))
 'Cells(R, 2) = FileLen(.FoundFiles(i))
 Cells(R, 2) = FileDateTime(.FoundFiles(i))
 R = R + 1
End If
 Next i
 End With

Merci à vous...

Lezeps ;-))

ucfoutu · Answer

que contient Directory en mode debug ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

c148270 · Answer

Bonjour
A ma cdonnaissance filesearch n'existe plus en 2007

Bonne journée

Renfield · Answer

Pas indispensable, néanmoins...
une boucle autour de Dir, ou 
au pire, quelques appels a FSO feront le job

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

c148270 · Answer

Voici ce que j'utilise Function Cherchefichier(ByRef strDir As String, ByRef searchTerm As String) Dim fso As Object Dim strName As String Dim strArr(1 To 65536, 1 To 1) As String, i As Long On Error GoTo errr Fichiertrouve = False Let strName = Dir$(strDir & "\*" & searchTerm) Do While strName <> vbNullString Let i = i + 1 Let strArr(i, 1) = strDir & "" & strName Let strName = Dir$() Loop Set fso = CreateObject("Scripting.FileSystemObject") Call recurseSubFolders(fso.GetFolder(strDir), strArr(), i, searchTerm) Set fso = Nothing If i > 0 Then Fichiertrouve = True Chemin_fichier strArr(i, 1) 'pour mémoire : strArr chemin du fichier End If Exit Function errr: If err.Number = 76 Then Resume Next ' répertoire inexistant End Function Private Sub recurseSubFolders(ByRef Folder As Object, _ ByRef strArr() As String, _ ByRef i As Long, _ ByRef searchTerm As String) Dim SubFolder As Object Dim strName As String On Error GoTo errr For Each SubFolder In Folder.SubFolders Let strName = Dir$(SubFolder.Path & "\*" & searchTerm) Do While strName <> vbNullString Let i = i + 1 Let strArr(i, 1) = SubFolder.Path & "" & strName If Mid(strArr(i, 1), Len(strArr(i, 1)) - (Len(searchTerm) - 1), Len(searchTerm)) Then Chemin_fichier = strArr(i, 1) End If Loop Call recurseSubFolders(SubFolder, strArr(), i, searchTerm) Next Exit Sub errr: If err.Number 52 Then Resume Next '52 accès interdit End Sub

c148270 · Answer

Désolé mais le copier collé a supprimé les décalages

ucfoutu · Answer

Filesearch n'est en effet plus suporté par VBA 2007

Mais ZEPS256 nous a alors dans ce cas caché l'utilisation de un "On Error Resume Next" dans son code, sans lequel il aurait eu un message d'erreur ! 



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ZEPS256 · Answer

Effectivement ucfoutu. j'ai omis de vous le préciser, en sachant que je ne pensais pas être une info importante ; mon problème était identifié non ?

Bref, le souci est bien FileSearch dans 2007.
Trouvé le complément.
Plus qu'à modifier mon code.

Merci à tous...

Lezeps ;-))

ucfoutu · Answer

je ne pensais pas être une info importante

Eh oui, car aurait immédiatement et très directement et explicitement été dénoncée la ligne disant :
With Application.FileSearch
plutôt que d'aller chercher ailleurs !

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Renfield · Answer

Il est de bon ton de se passer de On Error...

Il est très souvent (pas toujours) possible de s'en passer, en effectuant certaines vérifications...
repertoire existant ?
données saisies correctes, etc.


Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

ZEPS256 · Answer

Bien reçu.
Je veillerai à ce "détail" sur mes codes.
Y aurait-il qq chose sur le sujet. je ne me serts certainement pas assez de certaines vérifications.
Vers quoi je peux me diriger pour en savoir un peu plus ?

Lezeps ;-))

ucfoutu · Answer

Y aurait-il qq chose sur le sujet. je ne me serts certainement pas assez de certaines vérifications.
Vers quoi je peux me diriger pour en savoir un peu plus ? 

Aucune liste exhaustive.
C'est à toi qu'il appartient, à chaque instruction, etc... de vérifier que son écriture écarte la possibilité de la survenue d'une erreur. D'écrire autrement sinon.
Ne doivent rester en gestion d'erreurs que les erreurs indépendantes de ton code.
Par exemple : une division par zéro provoquerait une erreur ===>>
on ne "résout" pas alors avec une gestion d'erreur, mais avec une expression conditionnelle (ne diviser que si différent de 0)

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ZEPS256 · Answer

Bon , je dsl, mais je ne résouds pas mon problème.
Et je tourne en rond.
J'ai bien installé le module de classe ClasseFileSearch, mais ça ne change rien.
Mais je doit être une buse, pas possible !!!

Par contre ça m'a résolu le pb pour un module ou je cherche un mot dans une chaine de caractère. 
Mais là je bloque.

J'ai toujours le pb sur "Application.FileSearch"
Pas géré !

Encore help me....

Et j'ai du mal avec les Functions. Le problème pourrait venir de là ?

Lezeps ;-))

Utilisateur anonyme · Answer

Bonjour,

Si ton nouveau FileSearch est une classe ou une macro complémentaire, tu ne peux probablement pas l'appeler avec application.filesearch. Comme je n'ai pas vu le cossin en question, je suppose que tu as besoin de quelque chose du genre:

dim espion as filesearch
with espion
etc.

Utilisateur anonyme · Answer

Bonjour,

Je reviens d'un petit voyage sur MSDN. FileSearch est revenu dans Office 2010 sous la forme d'une Interface et serait maintenant disponible pour tous les programmes d'Office 2010. Je vais regarder cela un de ces jours...

ZEPS256 · Answer

cmarcotte,

Effectivement, FileSearch est un module de classe. 
('Module de classe ClasseFileSearch pour Excel 2007'SilkyRoad
'http://silkyroad.developpez.com/)

Je ne peux pas l'appeler avec "application"
Pourrais tu m'en dire plus pour détourner le pb.

dim espion as filesearch
with espion
etc.
Cette solution me bloque la suite 

 'with Application.FileSearch (je l'ai ms en commentaire pour voir...)
 With espion
 .NewSearch                           bug => Msgbox "membre de méthode ou de données introuvable"
 .LookIn Directory                 > idem Msgbox "membre de méthode ou de données introuvable"
 .Filename "*.*" ' this can be '*.*> idem Msgbox "membre de méthode ou de données introuvable"
 .SearchSubFolders = True
 .Execute


Merci de ta réponse,

Lezeps ;-))

Utilisateur anonyme · Answer

Bonjour,

Il faudrait que tu regardes les méthodes et propriétés de ton module de classe pour savoir les noms utilisés dans le module de classe. Si le module est protégé en ouverture, tu devrais quand même les voir dans la fenêtre propriétés, ou dans l'Explorateur d'objets.

Mais si c'est celui auquel je pense, tu devrais récupérer un fichier PDF en haut à droite de la fenêtre.

ZEPS256 · Answer

A priori j'ai accés au module.
Ds les propriétés, le nom est le bon
par contre, là je ne maitrise pas : Instancing : 2- PublicNotCreatable
Refuse la propriété "1-Private"

Ds l'aide, j'ai cette notion :"Un composant out-of-process..." peux tu me dire de qu'elle est cette notion ?

Merci de ton aide


Lezeps ;-))

Utilisateur anonyme · Answer

Bonjour

Sans être un grand spécialiste de la question, voici ce que cela m'inspire.

Instancing : Dans ls programmation orientée objet c'est la façon de dire que lLon crée un objet spécifique à partir de la classe. Généralement, c'est le résultat d'une instructio DIM.

2- PublicNotCreatable : C'est un niveau d'accès dans VB6-VBA. C'est l'équivalent de FRiend dans VB2010

out-of-process : Je ne sais pas trop, cela semble indiquer un composant qui est exécuté dans un processus distinct de celui de l'application principale.

Il y a peut-être un gourou plus gourou que moi qui va me corriger, mais bon...

ZEPS256 · Answer

je te remercie cmarcotte,

Je tourne en rond, je ne maitrise pas assez les functions. 
Je ne sais paas comment aborder ce code que j'avais récupéré il y a qq années et j'avais juste modifier.
Mais je trouvais ça pratique de rapatrier ds un xls la liste des docs contenu dans un dossiers de l'explorateur.

Merci encore,

Lezeps ;-))

ucfoutu · Answer

Bonjour,
tout ce temps perdu (3 mois) !
Rappel de ce qu'avait dit plus haut avec une très grande sagesse RenField :
Pas indispensable, néanmoins...
une boucle autour de Dir, ou
au pire, quelques appels a FSO feront le job

Il y a longtemps que tout cela serait terminé ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Hello,

Ben je suisd'accord avec toi ucfoutu, mais rassures toi, je ne suis pas dessus depuis 3 mois.
faire la boucle autour de DIR je ne vois pas.
Et pour le FSO, je ne vois pas non plus...

Alors je suis parti dans une impasse, je pense.

Mais là les gars, je suis à la limite de mes connaissances actuelles. Si vous avez des FAQ ou des tutos qui puissent me faire comprendre c'est bien venu !....

J'ai un grand manquement sur les functions, qui je pense me limite dans ce cas.

Merci de votre aide

Lezeps ;-))

ucfoutu · Answer

Si vous avez des FAQ ou des tutos qui puissent me faire comprendre c'est bien venu !.... 

Commence donc par ce qui m'apparait comme évident : ouvrir ton aide VBA dur la fonction Dir et la lire, ainsi que les exemples qui l'accompagnent ! cela me parait sage, non ?
Je te laisse commencer et faire un petit bout d'essai pour le plus simple : compter le nombre des seuls fichiers contenus dans un seul dossier.
Je t'attends avec ce bout de code d'essai, même si erroné (on corrigera).
L'essentiel est pour moi que tu montres ton effort ^personnel dans ce sens. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Merci ucfoutu, mais tu sais quand tu connais pas bien, parfois l'aide est assez obscur...

Pourrais tu me dire la logique du code qu'il me faudrait suivre : une sorte de logigramme.

Sinon, je commence à zéro comme tu me le proposes avec le comptage des fichiers contenus dans un dossier.

Q accessoire: je recommence sur un autre post ou je continue celui là...


Lezeps ;-))

ucfoutu · Answer

Continue ici :
Ce n'est pas te bousculer, que je cherche, mais simplement d'apprendre à pêcher.
Et c'est pour moi un vrai geste d'amitié.
Tu en tireras un bénéfice bien plus grand. 
As-tu lu la fonction Dir ? As-tu lu les exemples qui y sont donnés ?
Vas-y ===>> jette-toi sans crainte dans le bain ===>> peu importe si tu te trompes ===>> je corrigerai.
Mais jette-toi dans le bain ===>> vas-y !



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Je ne te vois plus !
Ok ===>> nous allons donc nous jeter ensemble dane ce bain !
Regarde ce que fait ceci :

Dim mon_dossier As String, mes_fics As String, cpt As Integer
  mon_dossier "D:\monoutil"    '>> mettre ici ton dossier à toi
  mes_fics Dir(mon_dossier, vbNormal Or vbHidden)    '>> on extrait le 1er
  cpt = 1
  Do While mes_fics <> ""    ' et on continue en boucle
     'MsgBox mes_fics ' ====>> décommente cette ligne, cela t'aidera à voir ce qui se passe
     cpt = cpt + 1
     mes_fics Dir    '>> on passe au suivant
  Loop
  MsgBox "le dossier " & mon_dossier & " contient " & cpt & " fichiers "
1) lance sur l'un de tes dossiers === >> regarde
2)  ensuite  et si tu veux comprendre le déroulement :
   décommente la ligne disant : MsgBox mes_fics
3) dans la ligne :
 mes_fics  = Dir(mon_dossier, vbNormal Or vbHidden)
vbNormal et vbHidden sont des constantes. Elles représentent des attributs de fichiers (vbNormal fichier normal - vbHidden fichier caché)
si l'on avait voulu recenser/compter que des dossier, l'attribut aurait été vbDirectory.
Fastoche, non ? ==>> vas-y ===>> essaye, avec ce même code, de ne recenser que des dossiers. Plonge. Vas-y sans crainte . Aucun risqyue de noyade, promis, juré ! faut juste ne pas craindre de plonger 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

T super sympa ucfoutu.
Mais C juste un manque de tps.
Je suis un peu full en timing, t'inquiète pas !
Je reviens vers toi dés que G eu le tps de bosser un peu le code.


Lezeps ;-))

ZEPS256 · Answer

ucfoutu,

Sur ton code, il ne me détecte pas "mes_fics" (fichiers, je suppose).

En déroulant F8, dans la fenêtre des variables il me "" pour :
mes_fics = Dir(mon_dossier, vbNormal Or vbHidden)=> pas vu vbNormal ou vbHidden
mes_fics = "" !

Je n'arrive pas à le faire détecter qq chose. 
Pourtant, avec l'aide je ne vois pas ce qui cloche.

Tu vois je bloque vite !!!

Lezeps ;-))

ucfoutu · Answer

Si tu as cela, cela veut dire :
soit que le chemin de ton dossier n'existe pas
soit que le dossier est vide

J'espère que tu as bien mis un chemin valide de ton disque ici :
mon_dossier " D:\monoutil\ "    ' >> mettre ici ton dossier à toi

à la place de l'exemple "D:\monoutil" 
et que tu as bien mis le \ final.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Ben je comprends plus...
Que se soit des fichiers ou des dossiers, il ne voit rien...
Je suis sous xlsx => 2007 ça change qq chose ?

Oui,Oui j'ai un chemin valide...

Lezeps ;-))

ucfoutu · Answer

Montre le code complet en précisant ta version Windows


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

ben j'ai fait un CC de ton code.
Rien de plus.
Mon W est un XP
Office 2007


Lezeps ;-))

ucfoutu · Answer

Montre-le, ce code (un copier/coller de ce que tu as copié toi-même!
Il révèlera surement quelque-chose ! 
Car j'ai testé et re-testé : XP + Excel 2007 ===>> impeccable !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Super G compris manque "" à la fin de mon adresse.
Bon maintenant, j'essaie de continuer


Lezeps ;-))

ucfoutu · Answer

Super G compris manque "" à la fin de mon adresse. 

et qu'avais-je écrit plus haut ?
et que tu as bien mis le \ final. 

Faire toujours très attention 
Bon..
J'attends la suite, maintenant.
A demain.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Donc voilà la suite. Questions : 1°) je souhaiterais mettre juste l'extension dans une colonne 2°) plus dur ; je souhaiterais choisir le dossier avec une boite de dialogue dans laquelle j'ai l'explorateur. 3°) je ne comprends pas => mes_fics = DIR ' ===>>pourquoi on passe au suivant ? Je cherche et je reviens vers toi pour le 2°. Sub essai() Dim mon_dossier As String, mes_fics As String, cpt As Byte Dim fin As String Dim i As Byte Dim lien As String mon_dossier = "D:\MonDossier\MesFichiers" Cells(1, 1) = "Adresse du dossier" Cells(1, 2) = "Nom du fichier" Cells(1, 3) = "Extension" Range("A1").Select Range(Selection, Selection.End(xlToRight)).Font.Bold = True mes_fics DIR(mon_dossier, vbNormal And vbHidden) '>> on extrait le 1er i = 2 cpt = 1 Do While mes_fics <> "" ' et on continue en boucle Cells(i, 1).Value = mon_dossier & mes_fics Cells(i, 2).Value = mes_fics mes_fics DIR '>> on passe au suivant cpt = cpt + 1 i = i + 1 Loop 'MsgBox "le dossier " & mon_dossier & " contient " & cpt & " fichiers " 'réalise les liens hypertexte Selection.End(xlDown).Select fin = Range("A1").End(xlDown).Row For i = 2 To fin Range("A" & i).Select lien = Range("A" & i).Value If Range("A" & i).Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lien End If Next End Sub

ZEPS256 · Answer

Pour l'extension c'est bon :
Cells(i, 3) = Right(Cells(i, 1), Len(Cells(i, 1)) - InStrRev(Cells(i, 1).Value, ".") + 1)


Lezeps ;-))

ucfoutu · Answer

Bien. Mais : Cells(i, 3) = Right(Cells(i, 1), Len(Cells(i, 1)) - InStrRev(Cells(i, 1).Value, ".") + 1) s'écrira plus gégèrement ainsi : Cells(i, 3) = Mid((Cells(i, 1), InStrRev((Cells(i, 1), ".")) 2) Selection.End(xlDown).Select fin = Range("A1").End(xlDown).Row For i = 2 To fin Range("A" & i).Select lien = Range("A" & i).Value If Range("A" & i).Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=lien End If Next devrait simplement s'écrire ainsi : For i = 2 To Range("A1").End(xlDown).Row If Range("A" & i).Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:=Range("A" & i).Value End If Next (ne pas travailler à coups de select, selection, etc ...) 3) mais surtout : - pourquoi diable tiens-tu à alourdir ta feuille par tous ces liens hypertexte ? Alors qu'ils ne seront finalement rien d'autre qu'un chemin de fichier, qui est déjà connu et qui est déjà là ? Tu risques fort (et fort inutilement) ainsi de te retrouver, pour peu qu'un dossier soit bien "lourd") avec des centaines de liens ! - quel est ton but ? recommencer ce que tu as depuis l'explorateur ? ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Hello, merci de tes conseils.
Le but est que j'ai parfois des dossiers qui contiennent des centaines de fichiers et que pour une recherche je vais beaucoup plus vite sous xls.

Le lien c'est pour ouvrir directement dans le fichier excel (bon d'accord un peu gadget, mais qd même plus rapide)

Maintenent, ou il faut que je puisse lister tous les fichiers qui se trouvent dans un dossier, y compris ceux qui sont eux même dans un sous dossier et etc... Actuellement, je n'arrive pas à le prendre en compte.

Peux tu m'expliquer le "mes_fics DIR '>> on passe au suivant" 

Lezeps ;-))

ucfoutu · Answer

mes_fics = Dir(mon_dossier, vbNormal Or vbHidden)    ' ===>> on extrait le 1er
  cpt = 1
  Do While mes_fics <> ""    ' et on continue en boucle
     'MsgBox mes_fics ' ====>> décommente cette ligne, cela t'aidera à voir ce qui se passe
     cpt = cpt + 1
     mes_fics = Dir   

la fonction dir retourne un ensemble de chemins mes_fics
la boucle While parcourt en boucle (ton do While) l'ensemble et retourne à chaque fois un fichier
Pour le reste : cela va devenir assez complexe pour toi car la fonction Dir n'est en soi non récursive et il va donc falloir assurer une récursivité par un subterfuge (en forçant non la récursivité de dir, mais celle d'une procédure conjointe au sein de laquelle on appellera une procédure utilisant elle-même Dir). Mais je ne te montrerai pas immédiatement tant que tu n'auras pas passé l'étape 1 que je te demandais, à savoir :
mes_fics = Dir(mon_dossier, vbNormal Or vbHidden)
vbNormal et vbHidden sont des constantes. Elles représentent des attributs de fichiers (vbNormal fichier normal - vbHidden  fichier caché)
si l'on avait voulu recenser/compter que des dossier, l' attribut aurait été vbDirectory .
Fastoche, non ?  ==>> vas-y === >>  essaye, avec ce même code, de ne recenser que des dossiers 
Avant même de parler du reste (écriture sur feuille, etc ...) qui n'est qu'accessoire. C'est l'accomplissement de ce pas qui, seuil, te donnera une chance de comprendre le reste qui va suivre.
________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

OK, je reviens vers toi une fois cela fait

Lezeps ;-))

ZEPS256 · Answer

heuuu
Là je bloque
T'as un indice
Je me renvoie les fichiers + dossiers
Les dossiers seuls je vois pas 

mes_fics Dir(mon_dossier, vbNormal And vbHidden)> fichiers
mes_fics Dir(mon_dossier, directory)> fichiers + dossiers (+ . et .. ?)
Est-ce bien là que ça se passe....je ne vois pas avec les constantes de DIR .....

Lezeps ;-))

ucfoutu · Answer

directory ?
Euh ... connais pas ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

VbDirectory, s'cuse

mes_fics Dir(mon_dossier, VbDirectory)> fichiers + dossiers + .(?) et .. (?)
Est-ce bien là que ça se passe....je ne vois pas avec les constantes de DIR ..... 

Lezeps ;-))

ucfoutu · Answer

Voilà bien pourquoi je voulais te faire passer par cette étape. Car il te faudra bien ensuite pouvoir compter séparément les fichiers et les dossiers, hein ... Alors regarde : Dim mon_dossier As String, mes_dos As String, cpt As Integer mon_dossier "D:\andrecourbe" '>> mettre ici ton dossier à toi mes_dos Dir(mon_dossier, vbDirectory) '>> on extrait le 1er cpt = 1 Do While mes_dos <> "" ' et on continue en boucle If mes_dos <> "." And mes_dos <> ".." Then If (GetAttr(mon_dossier & mes_dos) And vbDirectory) = vbDirectory Then ' MsgBox mes_dos ' ====>> décommente cette ligne, cela t'aidera à voir ce qui se passe cpt = cpt + 1 End If End If mes_dos Dir '>> on passe au suivant Loop MsgBox "le dossier " & mon_dossier & " contient " & cpt & " dossiers " Teste, analyse, comprends ... Etape suivante : Ecrire un code recensant tout (fichiers et dossiers, mais les comptant séparément) A toi ===>> (réfléchis... c'est facile). ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Tu sais quoi, ami ZEPS256 ?
Je vais te conduire pas à pas, jusqu'au bout.
Mais ce ne sera pas un acte gratuit :
Lorsque nous aurons fini :
1) tu vas rédiger un petit tutoriel, reprenant pas à pas chaque étape de progression. Puis le déposeras sur codes-sources. Il fait défaut et nous allons compter sur toi ^pour le rédiger, sur les bases que tu vas apprendre ici.
2) après ce dépôt, tu demanderas la destruction de toute la présente discussion

PS : je corrigerai au besoin ton projet de rédaction de ce tutoriel. 



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Voilà, j'ai fait cela. Maintenant, je me gratte la tête pour ouvrir les dossiers les uns après les autres et en extrayant les fichiers au fur et à mesure. J'essaie avec des if, mais c'est pas fiable, dans la mesure ou je ne connais pas d'avance le nb de branche de l'arborescence. Question subsidiaire : est-il possible dans VBA de numéroter les lignes - J'ai pas compris comment faire un CC du code dans le forum en respectant le format du code dans VBA. Je continu de chercher. DossFichExport Dir(DossierRacine, vbDirectory) '>> on extrait le 1er i = 2 cpt_Dos = 0 cpt_fics = 0 Do While DossFichExport <> "" If DossFichExport <> "." And DossFichExport <> ".." Then If (GetAttr(DossierRacine & DossFichExport) And vbDirectory) = vbDirectory Then Cells(i, 1).Value = DossFichExport cpt_Dos = cpt_Dos + 1 i = i + 1 Else Cells(i, 2).Value = DossFichExport Cells(i, 3) = Right(Cells(i, 1), Len(Cells(i, 1)) - InStrRev(Cells(i, 1).Value, ".") + 1) cpt_fics = cpt_fics + 1 i = i + 1 End If End If DossFichExport Dir '>> on passe au suivant Loop MsgBox "le dossier " & DossierRacine & " contient " & cpt_Dos & " dossiers et contient " & cpt_fics & " fichiers" End Sub Lezeps ;-))

ZEPS256 · Answer

Bizarre, ton message d'hier soir je le vois que maintenant...

Ouis, moi ça me va.
Le tuto sous quel format ?

Lezeps ;-))

ucfoutu · Answer

Bon. Pour présenter le code mis en forme : on le sélectionne, puis on clique sur le bouton code (3ème icône en partant de la droite). Tu vas pour l'instant oublier tes cellules (elle troublent inutilement la compréhension). Cet aspect ne sera traité qu'in fine C'est maintenant, que les choses plus complexes (récursivité) arrivent. Comme je te l'ai dit plus haut, la fonction Dir elle-meême n'accepte pas la récursivité, mais rien n'empêche (et c'est ce que nous allons faire) de rendre récursive une procédure utilisant la fonction Dir (astuce). Regarde ce que fait ce bout de code : sur un userform : un bouton de commande commandbutton1 et une lisbox Listbox1 et ce code : Option Explicit Private cpt_dos As Integer, cpt_fics As Integer ' Private Sub CommandButton1_Click() Dim repertoire As String repertoire = "d:\andrecourbe" RecurseFiles2 repertoire MsgBox "contenu du dossier " & repertoire & " : " & vbCrLf & cpt_dos & " dossiers " & vbCrLf & cpt_fics & " fichiers" End Sub Sub RecurseFiles2(ByVal repertoire As String) Dim tous_ensemble As String, nb_trouves As Integer Dim tremplin As String, i As Integer If Right$(repertoire, 1) <> "" Then repertoire = repertoire & "" tous_ensemble = Dir$(repertoire, vbNormal Or vbHidden Or vbDirectory) nb_trouves = 1 Do While tous_ensemble <> "" If tous_ensemble <> "." And tous_ensemble <> ".." Then tremplin = repertoire & tous_ensemble If GetAttr(tremplin) And vbDirectory Then ListBox1.AddItem "===== DOSSIER " & tous_ensemble cpt_dos = cpt_dos + 1 RecurseFiles2 tremplin ' Ah ! un dossier ! ===>> on appelle la fonction sur elle-même, alors (récursivité) tous_ensemble = Dir$(repertoire, vbDirectory) For i = 2 To nb_trouves tous_ensemble = Dir$ Next Else cpt_fics = cpt_fics + 1 ListBox1.AddItem tous_ensemble End If End If tous_ensemble = Dir$ nb_trouves = nb_trouves + 1 Loop End Sub Joli, non ? ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ZEPS256 · Answer

Hello, me revoilà !

Bon , j'ai étudié ton code...
J'étais incapable de le sortir.

j'ai juste une phase que je ne comprends pas bien :
Pourquoi tu compte nb_trouves et tu t'en sers lorsque tu as fini de lister les fichiers d'un dossier en repassant par une petite boucle (ligne 23)  :

For i = 2 To nb_trouves
Choix = Dir$
Next

Plutôt que de remonter au départ de la procédure comme lorsque tu sors d'un dossier.

En annexe pas compris "Pour présenter le code mis en forme : on le sélectionne, puis on clique sur le bouton code (3ème icône en partant de la droite)." je ne comprends sur quelle fenêtre tu es.

Lezeps ;-))

.FoundFiles dans 2007

54 réponses

Votre réponse

Discussions similaires