Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche spécial dossier

  • Initiateur de la discussion Initiateur de la discussion pokey
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pokey

Guest
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
 
Re : Recherche spécial dossier

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

Code:
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
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…