Recherche de repertoires

[gds35]

Bonjour à tous mes AMIS du Forum,

Je suis en train de faire un prog de stat et je dois recuperer des données dans 3 classeurs differents , qui sont des sauvegardes des années antérieures et qui se trouvent sur une clé USB dans le lecteur E .
Ces répertoires sont 0506-0607-0708 et à l'intérieur de chaqu'un d'eux 2 fichiers BC et FC . J'ouvre un par un les repertoires et fichiers et copie les infos nécessaires. Comment tester s'il n'y a + de répertoire a traiter ? car l'an prochain il y en aura un autre 0809, et tous les ans je recharges ces infos , j'ouvre un nx classeur chaque année.

Merci de votre aide . Bonne soirée. GDS35

 

[tototiti2008]

Re : Recherche de repertoires

Bonjour gds35,

Je crois qu'une boucle avec la fonction Dir pourrait t'aider

Du type, si tes dossiers sont dans C:\test\

Sub liste()
a = Dir("C:\test\", VbDirectory)

Do While a<>""
Msgbox a
a=dir
loop
end sub

(pas testé)

une remarque : ça ressort les dossiers mais aussi les fichiers sans attributs

 

[gds35]

Re : Recherche de repertoires

Merci ToToTiTi , je vais tester mais maintenant je me heurte a un autre Pb J'ai mon Fichier stat ouvert ..... J'ouvre 0506 , je copie ss pb , et veux fermer BC ds 0506 et j'ai ce maudit message alerte Voulez Vous ...... ouis un grd nb de donneés voulez vs le Utiliser ..... Ne peux t'on pas interdire ces message d'alertes en initialisant this wokbook par ex ? Merci bon app A+ Gds35

 

[JCGL]

Re : Recherche de repertoires

Bonjour à tous,

Peux-tu essayer avec :

Application.DisplayAlerts = False

Judicieusement placé...

Il est impératif de mettre

Application.DisplayAlerts = True

en fin de code

A+

 

[gds35]

Re : Recherche de repertoires

Salut CJLG , Ca Marche , "Judicieusement placé..." , m'a ouvert les Yeux encore grd merci et bonne soirée . GDS35

 

[JCGL]

Re : Recherche de repertoires

Bonjour à tous,
Salut sdg53 😛,

Ravi d'avoir pu t'aider
Moi c'est JCGL, mais ce n'est pas grave arf arf

Au plaisir de te lire
A+ à tous