Discussion :

[desatan]

Bonjour à tous le forum,

Je viens vers vous car malgré des tests, je n'arrive pas à trouver une macro qui irait dans tous les fichiers Excel des sous répertoires d'un répertoire donné pour modifier el lien de fichier lié.

Je joins un répertoire avec 2 fichiers pour être peut être plus claire.

Dans le répertoire test, 2 fichiers Excel.
Dans le premier, il y a un lien ='C:\Desktop\test\[fichier2.xlsx]Feuil1'!$A$1

Je cherche une macro qui pourrait parcourir les uns après les autres tous les fichiers excel du répertoire test et des sous répertoires et changer le lien ='C:\Desktop\test\[fichier2.xlsx]Feuil1'!$A$1 en ='D:\test\[fichier2.xlsx]Feuil1'!$A$1

Dans mes fichiers Excel j'ai plusieurs feuilles donc il faudrait que la macro parcours tout le document Excel.

Cette macro ne serait pas directement incluse dans le fichier à modifier, idéalement, en exécutant la macro, je souhaiterai qu'elle me propose de choisir le répertoire où il faudrait modifier les fichiers excel

Merci par avance pour votre aide.

[Menhir]

Si ton problème est de lister les fichiers de sous-répertoires, tu peux t'inspirer de ça :
https://excel.developpez.com/sources...scenceDossiers
https://excel.developpez.com/faq/?pa...BoucleFichiers
https://excel.developpez.com/faq/?pa...riptingRuntime

[kiki29]

Salut, à voir Liste des fichiers d'un dossier + Liens, à adapter à ton contexte.

[desatan]

Bonjour,

Merci pour vos réponses.

J'ai regardé vos 4 liens mais ils ne répondent pas à mon besoin.

Je ne veux pas lister les fichiers d'un répertoire.

Je souhaite que la macro ouvre chaque fichiers Excel d'un répertoire donné (y compris sous répertoire), par exemple C:\Desktop\test\, modifie dans ce fichier Excel les liens dans les formules, enregistre les modifications puis ferme le fichier. Ensuite elle passe au fichier suivant.

J'espère avoir été un peu plus claire, si ce n'est pas le cas, dites le moi.

Encore merci

[Menhir]

Je ne veux pas lister les fichiers d'un répertoire.

Je souhaite que la macro ouvre chaque fichiers Excel d'un répertoire donné (y compris sous répertoire), par exemple C:\Desktop\test\, modifie dans ce fichier Excel les liens dans les formules, enregistre les modifications puis ferme le fichier. Ensuite elle passe au fichier suivant.

Bin... une fois que tu as la macro pour lister, au lieu de les afficher, tu les ouvres avec un Workbooks.Open (ce qui est facile une fois qu'on a le chemin et le nom).
Ensuite tu fais un For Each sur toutes les cellules du fichier.
Pour chacune, tu replaces la séquence que tu souhaites avec un Replace().
https://msdn.microsoft.com/fr-fr/lib.../gg264409.aspx

Ou, encore plus simple, lancer un Replace sur Cells du Workbook.
https://msdn.microsoft.com/fr-fr/lib.../ff194086.aspx

[desatan]

je viens de regarder ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Worksheets("Sheet1").Columns("A").Replace _ 
 What:="SIN", Replacement:="COS", _ 
 SearchOrder:=xlByColumns, MatchCase:=True

J'aimerai que la macro regarde automatiquement toutes les feuilles des fichiers et toutes les cellules ?

Si je mets What:="C:\", Replacement:="D:\" cela suffit ?

Encore merci