XL 2016 Liste des onglets d'un autre classeur

[christ77000]

Bonjour à tous.
j'arrive a afficher dans une feuille le nom de tous les onglets de mon classeur et avoir le lien en hypertext. mais ce que j'essaie de faire est.
1) Récupérer la liste des onglets de ce classeur "Réunion d'équipe.xlsm" qui se trouve sur le reseau dans \\toto\toto\toto
2) Cette liste d'onglets s'afficherais dans une fenêtre et après sélection me retournerais en A1 le nom de cette onglet et de lui faire un lien en hypertext.

Merci pour votre aide

 

[kiki29]

Salut, vite fait, il y a sans doute mieux, à toi d'adapter à ton contexte

Liste l'ensemble des feuilles visibles et cachées ( xlHidden, xlVeryHidden )

Option Explicit

Sub tst()
Dim Wkb As Workbook, Wsh As Worksheet
Dim WkbDep As Workbook, i As Long,sFichier as String
    sFichier = "C:\Faq\.....\Coronavirus_PDFs 02.xlsb"
    Application.ScreenUpdating = False
    Set WkbDep = ThisWorkbook
    Set Wkb = Workbooks.Open(sFichier, ReadOnly:=True)
    WkbDep.Worksheets(1).Cells.Clear
    i = 1
    For Each Wsh In Wkb.Worksheets
        WkbDep.Worksheets(1).Cells(i, 1) = Wsh.Name
        i = i + 1
    Next Wsh
    Wkb.Close , False
    Set Wkb = Nothing
    Set WkbDep = Nothing
    Application.ScreenUpdating = True
End Sub

 

[Hasco]

Bonjour,

Dans le fichier joint, une approche par powerquery (inclus dans votre version excel dans l'onglet données) et une autre par vba et adodb.
Aucune des deux n'ouvre le classeur à traité dans excel.

Renseigner le chemin du fichier dans la cellule B1 (nommé 'CheminFichier') de la feuille contenant l'exemple PowerQuery. Cette cellule sert également à l'exemple VBA

cordialement

 

[christ77000]

Bonsoir et merci pour votre aide à tout les deux.
dans le fichier ListeFeuillesClasseurFermé.xlsm et avec la méthode powerQuery la liste apparaît bien, génial. Mais maintenant comment faire en automatique un lien hypertext vers l'un des onglet choisit de la liste.

 

[Hasco]

Bonjour,

Pour cette question qui n'était pas au programme, vous allez travailler un peu :

Ajoutez une colonne au tableau de résultat et utilisez dans celle-ci une formule avec la fonction LIEN_HYPERTEXTE.

Avec la fonction LIEN_HYPERTEXTE vous pourrez afficher un libellé différent du lien (deuxième argument de la fonction Lien_Hypertexte) par exemple : 'Allez à Nom Feuille'

Quant au lien lui-même il doit ressembler à :
[CheminEtNomDuFichier]'Nom de la feuille'!A1
Les éléments en gras sont aussi indispensables que le reste.

Vous pouvez construire ce lien (premier argument de la fonction Lien_Hypertexte )à partir d'une concaténation des éléments disponibles dans votre feuilles.

Cordialement

 

[christ77000]

Bonsoir et encore merci pour votre aide. J'ai un peut galérer mais j'y suis arrivé. Donc un grand merci à tous les deux.