Macro indiquer dans quel sous dossier ce trouve les fichiers
cooljuly
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
cooljuly Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
cooljuly Messages postés 40 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Macro indiquer dans quel sous dossier ce trouve les fichiers
- Dossier appdata - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Renommer tous les fichiers d'un dossier - Guide
- Impossible de supprimer un dossier - Guide
- Vous avez besoin d'une autorisation de la part de système pour modifier ce dossier - Guide
2 réponses
Bonjour,
si j'ai compris votre demande:
ex: pour un des onglet
si j'ai compris votre demande:
ex: pour un des onglet
nRep = ThisWorkbook.Path: nImp = Dir(nRep & "\M - Budgets Reçus\*.xls*")
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
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
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 !!!!!!