Chercher un dossier à l'aide de vba
Fermé
nono747
-
14 juin 2011 à 11:49
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 14 juin 2011 à 13:04
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 14 juin 2011 à 13:04
A voir également:
- Chercher un dossier à l'aide de vba
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Mettre un mot de passe sur un dossier - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
- Dossier appdata - Guide
- Vba l'indice n'appartient pas à la sélection - Forum VB / VBA
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
14 juin 2011 à 12:32
14 juin 2011 à 12:32
Bonjour,
Tes "dossiers" sont des sous-répertoires d'un seul et même répertoire "parent"? Si oui, ce code te permet de réaliser ce que tu cherches :
Si malgré les commentaires tu as des difficultés à adapter, tu dis...
Tes "dossiers" sont des sous-répertoires d'un seul et même répertoire "parent"? Si oui, ce code te permet de réaliser ce que tu cherches :
Sub ChercherRépertoire()
Dim Liste() As String, Chemin As String, NomRep As String
Dim i As Integer
i = 0
Chemin = "C:\Travail\Excel\" 'à adapter place ici ton chemin d'accès au répertoire "parent"
'la boucle qui suit va étudier tous les éléments contenus dans le répertoire
'intitulé "chemin" et va stocker le nom des sous répertoires dans une
'variable tableau() appelée Liste(). Les éléments "fichiers" ne seront pas stockés.
NomRep = Dir(Chemin, vbDirectory)
Do While NomRep <> ""
If NomRep <> "." And NomRep <> ".." Then
If (GetAttr(Chemin & NomRep) And vbDirectory) = vbDirectory Then
ReDim Preserve Liste(i)
Liste(i) = NomRep
i = i + 1
End If
End If
NomRep = Dir
Loop
For i = 0 To UBound(Liste)
'place ici le code de ce que tu veux faire avec les chemins
'd'accès trouvés par la macro
'par exemple : message à l'utilisateur avec les chemins d'accès complets :
MsgBox Chemin & Liste(i)
Next
End Sub
Si malgré les commentaires tu as des difficultés à adapter, tu dis...
juste une chose: si les répertoires et sous répertoires sont sur un réseau est ce que ça marche aussi?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
14 juin 2011 à 13:04
14 juin 2011 à 13:04
Oui. Suffit de renseigner le bon chemin.