Modification de liens Hypertextes...

Pierrot93

XLDnaute Barbatruc

• 11 Mai 2012

• #2

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

Pierrot93

XLDnaute Barbatruc

• 11 Mai 2012

• #3

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....

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mai 2012

• #4

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

• 11 Mai 2012

• #5

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

• 11 Mai 2012

• #6

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

• 11 Mai 2012

• #7

Re : Modification de liens Hypertextes...

Bonjour à tous,
Salut Eric,

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

A + à tous

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Mai 2012

• #8

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