Extraire un lien Hypertexte

Bonjour,

Dans une cellule donnée, j'ai un lien hypertexte que je souhaite extraire, et n'en garder que les 6 dernières valeurs dans une autre cellule..

Auriez-vous une solution à m'apporter ??

Merci beaucoup..

Stéphane

Bonsoir,

La structure du lien serait un plus pour te répondre. Un petit fichier peut-être?

Cdlt.

Bonsoir..

Voici !!

Merci.

Salut le forum

Code à copier dans un module

Sub ExtractionLiensHypertextes()
    Dim Cel As Range
    On Error Resume Next
    For Each Cel In Range("A1:A" & Range("A65536").End(xlUp).Row)
        Cel.Offset(0, 1) = Split(Cel.Hyperlinks(1).Address, "id=")(1)
    Next Cel
End Sub

Mytå

Merci bien..

Saurais-tu si par hasard, il est possible d'arriver au même résultat sans passer par du vba ??

Via une fonction directement ecrite dans la cellule de destination..

Merci encore ..

Stéphane

Bonjour,

En utilisant la macro, j'ai souhaité faire 1 modification, mais elle ne marche pas :

Sub ExtractionLiensHypertextes()

Dim Cel As Range

Dim feuil, semaine$

On Error Resume Next

For feuil = 1 To 52

semaine$ = "'Semaine " & feuil & "'!C1:C350"

For Each Cel In Range(semaine$)

Cel.Offset(0, -1) = Split(Cel.Hyperlinks(1).Address, "ID=L:")(1)

Next Cel

Next feuil

End Sub

En fait, j'ai des feuilles par semaine nommées "Semaine XX" et je souhaite appliquer la macro sur chacune des feuilles.

Le problème est que, même si une feuille existe bien, il incrémente les feuilles, mais ne fait pas l'extraction de l'hyperlien.

Auriez-vous une idée ??

Y'a t-il un moyen plus simple de lui dire d'effectuer la marco sur toutes les feuilles ?

Merci pour votre aide..

Finalement, j'ai trouvé en mettant :

semaine$ = "Semaine " & feuil

For Each Cel In Sheets(semaine$).Range("C1:C350")

A très bientôt, surement ..