lien hypertexte par macro

[davidm]

bonjour,

Merci de bien vouloir regarder le fichier joint.

Quand je lance ma macro, les liens hypertextes apparaissent mais seulement certains fonctionnent.
Par exemple: sommaire, Rel et EI fonctionnent mais FO 56 ne marche pas.

Je ne peux pas enlever l'espace entre le FO et le 56 donc il faudrait que la macro fonctionne dans tous les cas.

Ca fait un moment que j'essais.

Merci pour votre aide

David

 

[jeanpierre]

Re : lien hypertexte par macro

Bonjour davidm et Bienvenue sur XLD,

Et si tu écrits ton onglet tel que : FO_56, cela doit fonctionner...

VBA n'aime pas les espaces dans les noms d'onglets.

A te lire.

Jean-Pierre

 

[Guest]

Re : lien hypertexte par macro

bonjour,

Voici: la macro entoure les noms de feuille de guillemets simples, pour éviter d'avoir à enlever les espaces.

Bonne soirée

 

[Guest]

Re : lien hypertexte par macro

bonsoir JeanPierre,

Désolé du téléscopage

A bientôt

 

[pierrejean]

Re : lien hypertexte par macro

bonjour davidm

et bienvenue sur XLD

Teste:

Sub lienhypertexte()
'création des liens hypertext
    L = 1
    For Each WS In Worksheets
    With Worksheets("SOMMAIRE")
    MsgBox (WS.Name & "!A1")
        .Hyperlinks.Add Anchor:=.Cells(L, 1), Address:="", SubAddress:= _
            "'" & WS.Name & "'!A1", TextToDisplay:=WS.Name
    End With
    L = L + 1
    Next
End Sub

Edit :
Salut jeanpierre
Salut Hasco

 

[davidm]

Re : lien hypertexte par macro

Merci beaucoup à toutes les personnes qui m'ont répondu.

Je prend la solution de pierrejean qui correspond parfaitement à ce que je souhaitais réaliser.

Encore merci et à la prochaine fois.

David