liens hypertextes relatifs excel vers word

bonjour Goupil,

je ne crois pas que ce soit possible de les rendre relatifs,
par contre une fois les dossiers déplacés tu peut recréer les liens par
une macro,

Sub CréerHyperlinks()
Dim fs, i
Set fs = Application.FileSearch
With fs
.LookIn = "C:zaza" 'inscrire le nouveau chemin
.SearchSubFolders = True
.Filename = "*.*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), Address:= _
"" & .FoundFiles(i), TextToDisplay:="" & .FoundFiles(i)
Next i
Else
MsgBox "Aucun fichier trouvé"
End If
End With
End Sub

isabelle

Bonjour,
Comment est-il possible de créer, dans un classeur Excel, des liens
hypertextes vers des fichiers Word situés dans plusieurs sous-dossiers du
dossier contenant ce classeur Excel. Je voudrais en effet pouvoir déplacer
l'ensemble de ces dossiers et sous-dossiers en gardant les liens hypertextes.
Merci d'avance