Problème d'apostrophe avec une macro

Bonjour,

Je voudrais faire un sommaire avec la liste de mes onglets. et des liens.

J'ai trouvé une macro qui marche très bien, mais le problème est que les liens ne fonctionnent pas sur des onglets ayant une apostrophe dans leur nom.

Pour info j'ai besoin de garder cette apostrophe pour ensuite récupérer des infos d'internet et faire des tris.

Pouvez-vous m'éclairer ?

merci par avance

bon j'ai continué de rechercher et j'ai trouvé

en mettant cette macro, çà fonctionne :

Sub liens()

Sheets("Sommaire").Activate

For i = 1 To Sheets.Count

Cells(i + 5, 1).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _

SubAddress:="'" & Replace(Sheets(i).Name, "'", "''") & "'" & "!"

& "A1", TextToDisplay:=Sheets(i).Name

Next i

End Sub

EDIT : Ok, alors ma réponse est inutile, je l'efface.

Cordialement.

Bonjour,

Une autre solution sans liens...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Me.Range("B3:B7")) Is Nothing Then ThisWorkbook.Sheets(Target.Value).Activate
End Sub

Cdt,

Darzou