Discussion :

[zalalus]

Bonjour,

ma question est la suivante: j'ai une dizaine de fichier excel liés, mais chaque
fichier se trouve dans des emplacements differents.

je veux mettre l'ensemble de ces dossiers dans un seul dossier( sans modifier les liaisons)???

c possible?
je veux pas rentrer dans le soucis des chemins(relatifs/absolu)

merci d'avance

[jouana]

Salut
Si c'est pour bosser fait des raccourcis
Sinon tu ne vas pas avoir le choix

[zalalus]

j'ai pas compris votre reponse.

suppons qu'aujourd'hui j'ai les fichier sur une mchine x, je veux migrer l'ensemble de mes fichiers sur une machine y.
je dois faire quoi au juste?(cote liaisons)
je vais pas m'amuser à modifier mes liaison à la main!!!!!(si j'en ai 1000 fichiers ca av etre l'enfer!!)

merci pour votre reponse

[tototiti2008]

Bonjour à tous,

sur le principe, d'accord avec jouana, pas d'outil intégré pour "migrer" automatiquement les liaisons

maintenant il reste la possibilité d'une macro qui ouvrirait les 1000 fichiers, puis mettrait automatiquement à jour les liaisons, puis les enregistrerait...

[zalalus]

(macro qui ouvrirait les 1000 fichiers, puis mettrait automatiquement à jour les liaisons, puis les enregistrerait)

vous pouvez m'aider parceque je suis null en VBA
sinon juste un exemple de code pour modifier une seule liaison

merci

[tototiti2008]

Re,

le principe de base devrait ressembler à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LS, AncienLien As String, NouveauLien As String
    'Ancien Lien
    AncienLien = "C:\test1\Classeur9.xls"
    NouveauLien = "C:\test2\Classeur9.xls"
    LS = ActiveWorkbook.LinkSources
    For i = 1 To UBound(LS)
        If LS(i) = AncienLien Then
            ActiveWorkbook.ChangeLink AncienLien, NouveauLien
        End If
    Next i