je possede plusieurs feuilles excel qui contiennent des
liens hypertexte vers d'autres fichiers. Ces liens ont ete
inseres en utilisant la commande CTRL K et sont de type :
c:\NomProjet\Analyse\Resultats\TestN1.doc
c:\NomProjet\Analyse\Resultats\TestN2.doc
c:\NomProjet\Analyse\Resultats\TestN3.doc
Je souhaite changer le chemin memoriser par le lien
hypertexte sans etre obliger de les refaire un a un pour
que les liens hypertexte pointent finalement sur une
structure qui a changee.
c:\NomProjet\Analyse\ResultatsDesTests\TestN1.doc
Comment faire ?
La fonction rechercher/remplacer ne fonctionne pas dans ce
cas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour
Sub ChangeLien(Ancien$, Nouveau$) Dim sh As Worksheet, i&, Lien$ For Each sh In Worksheets With sh For i = 1& To .Hyperlinks.Count With .Hyperlinks(i) If Left$(.Address, 31&) = Ancien Then Lien = Application.Substitute(.Address, Ancien, "") .Address = Nouveau & Lien .Parent.Value = Nouveau & Lien End If End With Next i End With Next sh End Sub'AC
Sub Test() ChangeLien "c:NomProjetAnalyseResultats", _ "c:NomProjetAnalyseResultatsDesTests" End Sub
Alain CROS
"Jean-Luc" a écrit dans le message de news: 4a4b01c42c39$45977b90$
Bonjour,
je possede plusieurs feuilles excel qui contiennent des liens hypertexte vers d'autres fichiers. Ces liens ont ete inseres en utilisant la commande CTRL K et sont de type : c:NomProjetAnalyseResultatsTestN1.doc c:NomProjetAnalyseResultatsTestN2.doc c:NomProjetAnalyseResultatsTestN3.doc
Je souhaite changer le chemin memoriser par le lien hypertexte sans etre obliger de les refaire un a un pour que les liens hypertexte pointent finalement sur une structure qui a changee. c:NomProjetAnalyseResultatsDesTestsTestN1.doc
Comment faire ?
La fonction rechercher/remplacer ne fonctionne pas dans ce cas.
D'avance merci,
Jean-Luc
Bonjour
Sub ChangeLien(Ancien$, Nouveau$)
Dim sh As Worksheet, i&, Lien$
For Each sh In Worksheets
With sh
For i = 1& To .Hyperlinks.Count
With .Hyperlinks(i)
If Left$(.Address, 31&) = Ancien Then
Lien = Application.Substitute(.Address, Ancien, "")
.Address = Nouveau & Lien
.Parent.Value = Nouveau & Lien
End If
End With
Next i
End With
Next sh
End Sub'AC
Sub Test()
ChangeLien "c:NomProjetAnalyseResultats", _
"c:NomProjetAnalyseResultatsDesTests"
End Sub
Alain CROS
"Jean-Luc" <anonymous@discussions.microsoft.com> a écrit dans le message de news: 4a4b01c42c39$45977b90$a601280a@phx.gbl...
Bonjour,
je possede plusieurs feuilles excel qui contiennent des
liens hypertexte vers d'autres fichiers. Ces liens ont ete
inseres en utilisant la commande CTRL K et sont de type :
c:NomProjetAnalyseResultatsTestN1.doc
c:NomProjetAnalyseResultatsTestN2.doc
c:NomProjetAnalyseResultatsTestN3.doc
Je souhaite changer le chemin memoriser par le lien
hypertexte sans etre obliger de les refaire un a un pour
que les liens hypertexte pointent finalement sur une
structure qui a changee.
c:NomProjetAnalyseResultatsDesTestsTestN1.doc
Comment faire ?
La fonction rechercher/remplacer ne fonctionne pas dans ce
cas.
Sub ChangeLien(Ancien$, Nouveau$) Dim sh As Worksheet, i&, Lien$ For Each sh In Worksheets With sh For i = 1& To .Hyperlinks.Count With .Hyperlinks(i) If Left$(.Address, 31&) = Ancien Then Lien = Application.Substitute(.Address, Ancien, "") .Address = Nouveau & Lien .Parent.Value = Nouveau & Lien End If End With Next i End With Next sh End Sub'AC
Sub Test() ChangeLien "c:NomProjetAnalyseResultats", _ "c:NomProjetAnalyseResultatsDesTests" End Sub
Alain CROS
"Jean-Luc" a écrit dans le message de news: 4a4b01c42c39$45977b90$
Bonjour,
je possede plusieurs feuilles excel qui contiennent des liens hypertexte vers d'autres fichiers. Ces liens ont ete inseres en utilisant la commande CTRL K et sont de type : c:NomProjetAnalyseResultatsTestN1.doc c:NomProjetAnalyseResultatsTestN2.doc c:NomProjetAnalyseResultatsTestN3.doc
Je souhaite changer le chemin memoriser par le lien hypertexte sans etre obliger de les refaire un a un pour que les liens hypertexte pointent finalement sur une structure qui a changee. c:NomProjetAnalyseResultatsDesTestsTestN1.doc
Comment faire ?
La fonction rechercher/remplacer ne fonctionne pas dans ce cas.