Modification de liens Hypertextes...

[JCGL]

Bonjour à tous,

Je suis confronté à un problème de modifications de liens hypertextes suite à une restauration de données à partir d'un serveur

Lien fonctionnel :	\\ficphbl-exp1\phbl$\Hotellerie\Communs\Marchés\Marché CHU 2011\AO-10E7F036-Denrées alimentaires\APS 11-0186\Lot 1.02 Nescorée 30 cl.pdf
Lien HS :	\\ficphbl-exp1\phbl$\@GMT-2012.02.20-06.00.26\Hotellerie\Communs\Marchés\Marché CHU 2011\Denrées alimentaires\APS 11-0186\Lot 1.02 Nescorée 30 cl.pdf
Chaîne à supprimer :	@GMT-2012.02.20-06.00.26\

Les liens sont en colonne R sur 1100 lignes de la feuille "Prix 2012" sous XL 2003.

J'ai bien tenté une adaptation du code de l'ami Marc mais j'ai une erreur de Type sur

 For i = LBound(linkarray) To UBound(linkarray)

Merci

A+ à tous

 

[Pierrot93]

Re : Modification de liens Hypertextes...

Bonjour Jean Claude

si pas déjà fait, essaye peut être en initialisant l'aray ainsi :

linkarray = ActiveWorkbook.LinkSources(xlOLELinks)

bon après midi
@+

 

[Pierrot93]

Re : Modification de liens Hypertextes...

Re,

Aarf Jean-Claude.... le code utilisé est pour des liaisons, pas pour des liens hypertextes...... je tilt seulement moi....

 

[JCGL]

Re : Modification de liens Hypertextes...

Bonjour à tous,
Salut mon Pierrot,

.... Je pouvais toujours chercher.
Merci de ton retour.
Je vais prendre un peu de vacances et m'orienter sur un Replace

A++ l'ami
A + à tous

 

[ERIC S]

Re : Modification de liens Hypertextes...

Bonsoir

je n esais pas si cela peut t'inspirer :

For Each h In Sheets("feuil1").Hyperlinks
h.SubAddress = "Feuil3!A1"
Next

en adaptant le "feuil3!a1" bien sûr

 

[JCGL]

Re : Modification de liens Hypertextes...

Bonjour à tous,

Lors de mes recherches pour solutionner mon problème je suis allé faire un tour chez JB et j'ai trouvé cette procédure :

Liste des liens hypertexte du classeur

Un onglet Temp est créé avec la liste des liens trouvés dans le classeur.

Sub ListeLiensClasseur()
  On Error Resume Next
  Application.DisplayAlerts = False
  Sheets("temp").Delete
  Sheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "temp"
  i = 2
  For Each s In ActiveWorkbook.Sheets
    For Each h In s.Hyperlinks
      ActiveSheet.Cells(i, 1) = h.TextToDisplay
      ActiveSheet.Cells(i, 2) = h.Address
      ActiveSheet.Cells(i, 3) = h.SubAddress
      ActiveSheet.Cells(i, 4) = h.Parent.Address
      ActiveSheet.Cells(i, 5) = s.Name
      i = i + 1
    Next h
  Next s
  Cells.EntireColumn.AutoFit
End Sub

A chaque visite je découvre des perles.
Bravo Jacques

A + à tous

 

[JCGL]

Re : Modification de liens Hypertextes...

Bonjour à tous,
Salut Eric,

Je t'ai un peu zappé...
Merci de ton retour.

A + à tous

 

[JCGL]

Re : Modification de liens Hypertextes...

Bonjour à tous,

A toutes fins utiles :

Sub Répare_Liens()
For Each HyperL In Sheets("Prix 2012").Hyperlinks
HyperL.Address = Replace(HyperL.Address, "@GMT-2012.02.20-06.00.26\", "")
Next
End Sub

A + à tous