lister le nom des onglets

Bonsoir.
Essaie :

For Each Sheet In Sheets
MsgBox Sheet.Name
Next Sheet

Cordialement.
Daniel
"Jean" <jj@free.fr> a écrit dans le message de news:
442d716a$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Je développe un module VBA qui doit créer sur la première feuille des
liens hypertextes avec les autres feuilles.
Pour cela, j'ai besoin de trouver le nom des feuilles du classeur pour
créer mon menu.

Merci de m'expliquer comment faire ?

Jean

Bonjour,

Une piste :
For Each s In ActiveWorkbook.Sheets
MsgBox s.Name
Next


@+ thierryp

------------------------
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin
gourmet. (Courteline)
------------------------

Bonjour,

Je développe un module VBA qui doit créer sur la première feuille des liens
hypertextes avec les autres feuilles.
Pour cela, j'ai besoin de trouver le nom des feuilles du classeur pour créer
mon menu.

Merci de m'expliquer comment faire ?

Jean

Bonjour,

dans ThisWorkbook, tu colles ce bout de code


Private Sub Workbook_Open()
Set mafeuille = ActiveWorkbook.Sheets("Feuil1")
For i = 2 To Sheets.Count
mafeuille.Cells(i, 1).Value = Sheets(i).Name
With Worksheets(mafeuille.Name)
ActiveSheet.Hyperlinks.Add Anchor:=.Cells(i, 1), Address:="", SubAddress:= _
Chr(39) & Sheets(i).Name & Chr(39) & "!A1"
End With
Next i
End Sub

A+

Morganitos


"Jean" <jj@free.fr> a écrit dans le message de news:
442d716a$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Je développe un module VBA qui doit créer sur la première feuille des
liens hypertextes avec les autres feuilles.
Pour cela, j'ai besoin de trouver le nom des feuilles du classeur pour
créer mon menu.

Merci de m'expliquer comment faire ?

Jean

Bonjour
voici qq chose qui fonctionne bien
auteur : Benead
@+
J@@


'************** A placer dans un module standard *******
Sub CreationLiens()
Dim Feuille As Worksheets, n As Integer, L As Integer, _
ExisteFeuille As Boolean, wCell As range, Réponse As Long
On Error Resume Next
ExisteFeuille = Worksheets("Répertoire").Name
If Err.Number = 9 Then
Err.Clear
Réponse = MsgBox("Il faut une feuille nommée ""Répertoire"" !" & _
vbCrLf & "Voulez-vous la créer ?", vbYesNo, "Création des liens
Hypertextes")
If Réponse = vbNo Then Exit Sub
ActiveWorkbook.Worksheets.Add before:=Sheets(1)
ActiveSheet.Name = "Répertoire"
End If
On Error GoTo 0
With Sheets("Répertoire")
L = 1
.Cells.Clear
For n = 1 To Worksheets.Count
If Worksheets(n).Name <> "Répertoire" Then
.Activate

.Hyperlinks.Add Anchor:=.Cells(L, 1), Address:="", _
SubAddress:="'" & Worksheets(n).Name & "'!A1"
.Cells(L, 1).Value = Worksheets(n).Name
.Cells(L, 1).Select
If Worksheets(n).[A1].Hyperlinks.Count = 1 Or
IsEmpty(Worksheets(n).[A1]) Then
Set wCell = Worksheets(n).[A1]
ElseIf Worksheets(n).[B1].Hyperlinks.Count = 1 Or
IsEmpty(Worksheets(n).[B1]) Then
Set wCell = Worksheets(n).[B1]
ElseIf Worksheets(n).[C1].Hyperlinks.Count = 1 Or
IsEmpty(Worksheets(n).[C1]) Then
Set wCell = Worksheets(n).[C1]
End If
If Not wCell Is Nothing Then
Worksheets(n).Hyperlinks.Add Anchor:=wCell, Address:="",
SubAddress:="'" & _
Worksheets("Répertoire").Name & "'!" & .Cells(L, 1).Address(0, 0)
wCell.Value = "Retour au Répertoire"
End If
L = L + 1
Set wCell = Nothing
End If
Next
End With
End Sub
'********************************************

Bonjour,

Je développe un module VBA qui doit créer sur la première feuille des liens
hypertextes avec les autres feuilles.
Pour cela, j'ai besoin de trouver le nom des feuilles du classeur pour créer
mon menu.

Merci de m'expliquer comment faire ?

Jean

OK merci à tous pour vos réponses.

Jean


"Jean" <jj@free.fr> a écrit dans le message de news:
442d716a$0$29216$8fcfb975@news.wanadoo.fr...

Bonjour,

Je développe un module VBA qui doit créer sur la première feuille des
liens hypertextes avec les autres feuilles.
Pour cela, j'ai besoin de trouver le nom des feuilles du classeur pour
créer mon menu.

Merci de m'expliquer comment faire ?

Jean