XL 2016 importation de classeurs sources fermés

[Usine à gaz]

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,

 

[Robert]

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 :

Cheminsource = "C:\Users\lionel\Desktop\Import_Test\"

par :

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...).

 

[Usine à gaz]

Bonsoir Robert,
Merci pour m'avoir répondu.
Je vais tester
lionel,

 

[Usine à gaz]

Merci Robert
Voilà un souci de réglé.
lionel,