Recherche spécial dossier

[pokey]

Bonjour,

Je ne sais pas si mon besoin peut se faire a partir de excel..je vous expliques mon besoin.

A la racine du C j'ai 3 dossiers qui se nomme Retard..Avance..Contrat
Dans chacun de ses dossiers j'ai des sous-dossiers
Chacun des sous dossiers porte le numéro du client comme nom de dossier

Exemple
Dans le dossier Retard j'ai 2 sous dossiers qui se nomme: 1234 1236
Dans le dossier Avance j'ai 3 sous dossiers qui se nomme : 1235 1233 1238
Dans le dossier Contrat j'ai 3 sous dossiers qui se nomme : 1231 1239 1240

J'aimerais faire un petit programme qui recherche le numéro de dossier qui est le plus haut ainsi que le repertoire ou il se situe dans l'exemple ci haut ce serait
Numéro de dossier le plus élevé : 1240 qui se situe dans Contrat.

Est-ce possible ?
Merci

 

[tototiti2008]

Re : Recherche spécial dossier

Bonjour pokey,

Oui, c'est possible, mais c'est plus facile à faire avec des objets FileSearch. Or FileSearch n'existe plus en Excel 2007, donc quelle est ta version d'Excel ?

 

[pokey]

Re : Recherche spécial dossier

Bonjour ,

Merci pour ta réponse...ma version de excel est 2003. J'essaie de trouver des infos concernant objets FileSearch 🙂

 

[tototiti2008]

Re : Recherche spécial dossier

Désolé, c'est des dossiers que tu cherches, pas des fichiers... FileSearch c'est pour les fichiers...

Il faut utiliser l'instruction Dir

je te reviens avec un exemple

 

[pokey]

Re : Recherche spécial dossier

Merci beaucoup 🙂

 

[tototiti2008]

Re : Recherche spécial dossier

un exemple, donc : attention, ça ne renvoie pas que les dossiers mais aussi les fichiers sans attribut

sub cherche()
Dim NomDoss as string
NomDoss = Dir("C:\Retard\",vbdirectory)
if NomDoss<>"" then
Msgbox NomDoss
else
exit sub
end if
Do
NomDoss = Dir
if NomDoss<>"" then
Msgbox NomDoss
else
exit sub
end if
Loop until NomDoss = ""
end sub

 

[pokey]

Re : Recherche spécial dossier

Merci pour ton exemple...je vais esseyer de l'adapter a mon besoin pour qu'il me retourne le numéro de dossier le plus haut...dommage par contre qu'il renvoie aussi les fichiers sans attribut.

 

[jp14]

Re : Recherche spécial dossier

Bonsoir

Ci joint un fichier avec une macro ( origine le forum ) qui devrait répondre au problème posé.

A tester

JP

 

[pokey]

Re : Recherche spécial dossier

Bonjour,

Un énorme remerciement c'est exactement mon besoin , me reste a étudier tout le code pour bien en comprendre le fonctionnement .

Encore merci