Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modification de liens Hypertextes...

JCGL

XLDnaute Barbatruc
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
Code: 
 For i = LBound(linkarray) To UBound(linkarray)

Merci

A+ à tous
 
Trier par date Trier par votes

Pierrot93

XLDnaute Barbatruc
Re : Modification de liens Hypertextes...

Bonjour Jean Claude

si pas déjà fait, essaye peut être en initialisant l'aray ainsi :
Code: 
linkarray = ActiveWorkbook.LinkSources(xlOLELinks)

bon après midi
@+
 
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc
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
 
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
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.
VB: 
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
 
Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc
Re : Modification de liens Hypertextes...

Bonjour à tous,

A toutes fins utiles :

VB: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…