Liens hypertexte, changement de répertoire

[dav51]

Bonsoir,

Voilà, j’ai un souci, j’ai un fichier excel avec des liens hypertextes qui pointent vers un répertoire c:\mes documents\factures et j’aimerai déplacer ce répertoire vers d:\gestion\factures
Comment faire pour modifier tous mes liens hypertextes car il y a plus de 200

Je vous remercie par avance

David

 

[Mytå]

Re : Liens hypertexte, changement de répertoire

Salut le forum

Dav51 un début de solution à adapter

Récupérer sur le site de Frederic Sigonneau

Sub ChangerLiaisons()
'L Longre, mpfe
Dim Liaison, départ$, arrivée$
 
    départ = "c:\temp\truc1.xls"    '<-- à adapter
    arrivée = "C:\Temp\Truc2.xls"   '<-- à adapter
 
    For Each Liaison In ActiveWorkbook.LinkSources(xlExcelLinks)
        If LCase$(Liaison) = départ Then Exit For
    Next
    If Not IsEmpty(Liaison) Then _
        ActiveWorkbook.ChangeLink Liaison, arrivée
End Sub

Mytå

 

[dav51]

Re : Liens hypertexte, changement de répertoire

Merci Mytå,

Je pense que c'est un bon debut 🙂 , j'essaie demain et vous tiens au courant.
Merci
Dav51.