Problème d'insertion de liens hypertextes.

Bonjour

Vu de loin et sans avoir el fichier, ce ne serait pas une question
d'orthographe du nom de la feuille?
voire un blanc avant le nom de l'onglet?
Avez-vous enregistré le doc après avoir créé les nouveaux onglets et avant
de mettre (essayer de mettre) le lien?

Si problème, mettez votre fichier sur CJOINT.com et notez ici le lien.,
après avoir enlevé les données confidentielles, bien sur.

Bien à vous.

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"LilCT" a écrit dans le message de groupe de discussion :
dI-dneOtCpBG4frEnZ2dnUU798zNnZ2d@giganews.com...

Bonjour,

J'ai récupéré un fichier Excel, qui contient plus d'une centaine d'onglets.
J'ai créé de nouveaux onglets, modifié des feuilles.

Pour faciliter l'accès aux différents onglets, j'ai créé un nouvel onglet
"SOMMAIRE" qui reprend le nom de tous mes onglets.
Et pour accéder aux feuilles, j'insère des liens hypertextes sur le nom des
onglets.

Mais il y a un problème !
Lorsque j'insère le lien hypertexte, je me mets sur mon nom d'onglet (dans
ma
feuille "SOMMAIRE"), clic droit, lien hypertexte, emplacement dans ce
document.

Et pour certains onglets ça fonctionne mais pour d'autres non ! POURQUOI
?!!!
J'ai essayé de regarder à droite à gauche mais n'étant pas une experte je ne
trouve pas de solution à mon problème !

Pouvez-vous m'aidez s'il-vous-plaît ?

Merci d'avance.

Bonjour,

Ouvre la fenêtre de l'éditeur de code VBA : Raccourci clavier : Alt + F11

Insère un "Module" à partir du menu "insertion / module"
Copie cette macro dans ce module
Pour exécuter la macro, tu reviens à l'interface de la feuille de calcul.
Pour ouvrir la fenêtre des macros disponibles : Raccourci clavier : Alt + F8
Sélectionne le nom de cette macro et clique sur le bouton "Exécuter".


'-----------------------------------------------------------------
Sub Liste_Feuille()
Dim Sh As Worksheet, Feuille As Worksheet
Dim X As Integer

Application.ScreenUpdating = False

'Suppression de l'onglet feuille "Sommaire"
'si elle existe
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Sommaire").Delete
Application.DisplayAlerts = True

'Création à nouveau de la feuille que l'on va nommer "Sommaire"
Set Sh = Sheets.Add(Before:=Sheets(1))

'Formatage et disposition dans la feuille sommaire
With Sh
.Name = "Sommaire"
With .Range("A1")
.Value = "Liste des onglets du classeur"
.VerticalAlignment = xlCenter
.EntireRow.RowHeight = 40
With .Font
.Bold = True
.Size = 16
End With
End With
End With

'une boucle sur toutes les feuilles et insertion des liens
'hypertextes vers chacune de ces feuilles.
'Afin de tenir compte des "espaces" dans les noms d'onglet
'des feuilles, observe comment s'écrit cette section :
' SubAddress:="'" & Feuille.Name & "'" & "!A1"
'Le nom de l'onglet est entre des guillemets simples '

With ThisWorkbook
X = 2 'le numéro de la ligne où débute la liste des onglets
For Each Feuille In .Worksheets
If Feuille.Name <> "Sommaire" Then
With Sh
.Range("B" & X).Value = Feuille.Name
.Hyperlinks.Add Anchor:=.Range("B" & X), _
Address:="", SubAddress:="'" & Feuille.Name & "'" &
"!A1", _
TextToDisplay:="Lien vers " & Feuille.Name
X = X + 1
End With
End If
Next
End With
'fais disparaître le grillage de la feuille.
ActiveWindow.DisplayGridlines = False
Application.ScreenUpdating = True
End Sub
'-----------------------------------------------------------------

MichD