XL 2016 importation de classeurs sources fermés

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonsoir à toutes et à tous,

Je me permets de vous solliciter à nouveau car je butte sur une codification hors de ma portée 🙁.

Le code que j'utilise, adapté à mes fichiers, me permet d'importer des informations sans avoir à ouvrir les classeurs sources.

la Macro "Import_RdVnf" fait appel à 3 autres macros (un code par fichier source)
Tout se passe dans un temps d'exécution acceptable

Mais il ne m'est pas possible de déplacer le dossier qui contient les classeurs, sous peine :
- de refaire les chemins
- et de supprimer les noms des plages enregistrées dans le gestionnaire de noms

Est-il possible ? :
- de modifier le code afin qu'il ne créé plus de plages nommées,

- que le chemin source soit toujours le même où que se trouve le dossier dans l'ordinateur.
code Robert : Cheminsource = ThisWorkbook.Path & "\" = solutionné


Je joins les classeurs tests (mes explications sont dans le classeur "Import_test" onglet "Détails de ma demande".

Je vous remercie toutes et tous pour votre aide si indispensable 🙂
Bonne fin de journée,
Amicalement,
lionel,
 

Pièces jointes

Dernière édition:
Bonsoir Arthour, bonsoir le forum,

Si tous les fichiers se trouvent dans le même dossier que le fichier Import_testF.xlsm, tu pourrais simplement modifier le code e remplaçant la ligne :

VB:
Cheminsource = "C:\Users\lionel\Desktop\Import_Test\"
par :
Code:
Cheminsource = ThisWorkbook.Path & "\"

À partir de là tu devrais pouvoir renommer/déplacer le dossier sans problème (je n'ai pas regardé les macro en détail...).
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
580
Retour