Récupérer les onglets en listing

[fax]

Bonjour,
Je cherche une solution pour récupérer sous forme de liste, les noms des onglets présents dans un fichier excel (dans l'ordre d'apparition)
Merci à tous de l'aide que vous pourrez m'apporter.
Bonne soirée
FAX.

 

[laetitia90]

Re : Récupérer les onglets en listing

bonjour tous déja tu peus faire un truc comme cela en attendant une réponse
crée la liste sur Feuil1 sur COLONNE A

Sub es()
    Dim ws As Worksheet
    With Sheets("feuil1")
    For Each ws In Worksheets
    .Cells(Rows.Count, 1).End(xlUp)(2) = ws.Name
    Next ws: End With
End Sub

puis evenementielle tu clic sur le nom de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A:A")) Is Nothing And Target <> "" Then
Worksheets([Target].Text).Activate
End If
End Sub

edit pas rafraichi pas vu la reponse de boisgontier

 

[didus]

Re : Récupérer les onglets en listing

Bonjour le forum

J'essaye de trouver des solutions à ma recherche d'extraction de données dans un grand nombre de feuilles et mes pérégrinations m'ont amenées sur ce fil.
Tout d'abord Bravo à tous les contributeurs, même s'il n'y a pas toujours de suivi en retour.
j'ai essayé toutes vos solutions qui marchent bien, je n'ai pas pu avoir de résultat avec la Sub liste_onglets() de Paritec, mais j'ai du louper qqchose.
la dernière liste automatique de JB va me faire bien avancer.

Le plus drôle dans tout ça c'est le temps (souvent très long) que je passe à comprendre et décortiquer vos macros et vos formules pour mon éducation personnelle!!!

Que du bonheur.

merci encore

 

[BOISGONTIER]

Re : Récupérer les onglets en listing

Bonjour,

http://boisgontierjacques.free.fr/fichiers/hyperlien/LienHyperSommaireDyn.xls

JB