Sujet Précédent Sujet Suivant

Vba ouvrir les fichiers excel des sous dossiers, uniquement.

Résolu/Fermé
Frantoc37 Messages postés 17 Date d'inscription dimanche 7 février 2016 Statut Membre Dernière intervention 21 février 2016 - 7 févr. 2016 à 20:18
Frantoc37 Messages postés 17 Date d'inscription dimanche 7 février 2016 Statut Membre Dernière intervention 21 février 2016 - 8 févr. 2016 à 08:57
Bonjour,

Je voudrais qu'une macro ouvre les fichiers excel qui se trouvent uniquement dans les sous répertoires. (surtout pas dans le répertoire hôte)
Pour l'instant, j'ai fait cette macro, mais elle s'applique au répertoire hôte (thisworkbook.path)...

Sub ouvrir_fichiers()
ChDir ThisWorkbook.Path
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub

Comment faire ??? Que faut-il ajouter ou modifier ?

Merci :-)
François
A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
7 févr. 2016 à 22:03
Bonjour,

Il faut auparavant rechercher les répertoires avec "filesearch" : tu as du code pour cela sur cette page
0
Réponse 2 / 2
Frantoc37 Messages postés 17 Date d'inscription dimanche 7 février 2016 Statut Membre Dernière intervention 21 février 2016
8 févr. 2016 à 08:57
Super page avec sans doute tous les codes qu'il me faut !
Je vais tester tout ça !
Merci gbinforme !
0