XL 2016 Liste des onglets d'un autre classeur

christ77000 · 29 Septembre 2020

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

Hasco · 30 Septembre 2020

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...

kiki29 · 29 Septembre 2020

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 )

VB:

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 · 29 Septembre 2020

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 · 30 Septembre 2020

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 · 30 Septembre 2020

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 · 1 Octobre 2020

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.

XL 2016 Liste des onglets d'un autre classeur

christ77000

XLDnaute Occasionnel

Hasco

kiki29

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Pièces jointes

christ77000

XLDnaute Occasionnel

Pièces jointes

Hasco

XLDnaute Barbatruc

christ77000

XLDnaute Occasionnel

Discussions similaires