Macro indiquer dans quel sous dossier ce trouve les fichiers

Fermé
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016 - 26 août 2016 à 15:00
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016 - 29 août 2016 à 17:11
Bonjour,

j'ai une macro qui me compile toutes les cellules désirées de plusieurs classeurs uniquement lorsque la macro est enregistrée avec tous les fichiers.

cependant, pour chacun de mes onglets, j'ai besoin d'aller chercher les fichiers à copier dans un sous dossier précis :

Mon gros répertoire s'appelle BUDGET (c'est sur un réseau avec un nom kilométrique...)
dedans j'ai les 4 sous dossiers qui m'intéressent :
M - Budgets Reçus
O - Budgets taux calculés
Obis - Budgets taux retenus
P - Commission

ma macro nomme mon répertoire :
nRep = ThisWorkbook.Path: nImp = Dir(nRep & "\*.xls*")

Du coup : comment je peux insérer dans le répertoire le nom sous dossier ? (je ferais par la suite une macro par onglet)

merci par avance pour votre aide





A voir également:

2 réponses

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
27 août 2016 à 10:49
Bonjour,

si j'ai compris votre demande:

ex: pour un des onglet
nRep = ThisWorkbook.Path: nImp = Dir(nRep & "\M - Budgets Reçus\*.xls*")
0
Bonjour merci pour votre réponse. Mais c'est n'est pas lajou dans onglet que je recherche c'est l'ajout d'un sous dossier.
0
f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707 > Cooljuly
27 août 2016 à 16:23
Re,

C'est bien vous qui avez ecrit ceci:

dedans j'ai les 4 sous dossiers qui m'intéressent :
M - Budgets Reçus
O - Budgets taux calculés
Obis - Budgets taux retenus
P - Commission


Donc, ma reponse est correcte ou precisez !!!!!!
0
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016
29 août 2016 à 17:11
bonjour,
oui c'est exact. Désolée, je me suis mélangée avec le mot onglet. je viens de tester et cela fonctionne pour la première partie.

il me reste à trouver comment l'intégrer dans la deuxième partie de mon code :
Set WorkbookImp = Workbooks.Open(Filename:=Repertoire & "\" & nomImp, UpdateLinls:=2)

Merci pour votre aide
0