XL 2016 VBA - Trouver les feuilles d'un classeur fermé

[Dudu2]

Bonjour,

J'ai bien une fonction pour trouver les valeurs d'une feuille donnée d'un classeur fermé (fichier joint) mais je n'ai rien pour trouver les noms des feuilles de ce classeur fermé.

Merci par avance.

 

[Dudu2]

Il y a des requêtes de sélection qui retourne un recordset et et des requêtes d'action comme insert, update.

En effet, en creusant un peu on doit pouvoir se libérer de manips VBA pénibles.
La prochaine fois que j'ai un truc de ce genre je te poserai la question.

 

[dysorthographie]

Pas de soucis

 

[Dudu2]

@patricktoulon,

Je vois qu'en cas de pas d'item tu fais:

Table = Array()

pour avoir un UBound à zéro.

Perso pour tester une table vide je fais ça:

If Not (Not Table) Then
    'Table pas vide (valorisée)
Else
    'Table vide (non valorisée)
End

 

[dysorthographie]

Sur excel c'est possible de ne pas avoir d'onglet?

 

[Dudu2]

A ma connaissance c'est impossible.

 

[dysorthographie]

Dans le contexte du module que j'ai fourni je ne m'intéresse qu'à la basse de données. La gestion de ubound(tables) reste un exercice classique dans VBA et je me suis contenté d'un exemple basique

Je pense que Dudu2 est à la hauteur de ce genre de défi 🤣

 

[patricktoulon]

re

Sur excel c'est possible de ne pas avoir d'onglet?

faux!!
c'est sur un classeur qui a un onglet au minimum
l'application peut très bien être démarrer sans classeur

 

[patricktoulon]

@patricktoulon,

Je vois qu'en cas de pas d'item tu fais:

Table = Array()

pour avoir un UBound à zéro.

Perso pour tester une table vide je fais ça:

If Not (Not Table) Then
    'Table pas vide (valorisée)
Else
    'Table vide (non valorisée)
End

et bien si la requête c'est mal passé pour une raison ou une autre moteur ado en rade , permission,etc....
mieux vaut retourner quelque chose que planter une erreur non?

 

[dysorthographie]

re

faux!!
c'est sur un classeur qui a un onglet au minimum
l'application peut très bien être démarrer sans classeur

c'était une boutade en forme de question pas une affirmation!

 

[patricktoulon]

tenez j'ai trouvé ceci pour power query

Lister les feuilles d'un classeur Excel fermé avec Power Query - Blogs - Forum du club des développeurs et IT Pro

Lister les feuilles d'un classeur Excel fermé avec Power Query Pierre Fauconnier

www.developpez.net

 

[Dudu2]

mieux vaut retourner quelque chose que planter une erreur non?

Tu ne plantes rien si tu retournes une table non initialisée, sauf si tu en testes le UBound évidemment.
D'où le test sur le Not (Not Table).

tenez j'ai trouvé ceci pour power query

Pour moi, PowerQuery est un mystère aussi profond que l'existence de dieux.
On peut l'appeler via le VBA ?

 

[Dudu2]

J'avais pas vu le post de @nullosse.
Merci pour l'info des ' à supprimer !

 

[patricktoulon]

moi non plus je n'ai pas vu
corrigé

Option Explicit
Sub test()
    Dim listsheet, filepath$
    'adapter le chemin ici ou injecter un dialog getopenfilename
    filepath$ = "C:\Users\patricktoulon\Desktop\tototo.xlsx"
    listsheet = ListSheetOnClosedFile(filepath)
    If UBound(listsheet) > 0 Then
        MsgBox Join(listsheet, vbCrLf)
    Else
        MsgBox "La connection au classeur n'a pas pu lister les feuille du classeur"
    End If
End Sub
Function ListSheetOnClosedFile(lPath As String)
    'patricktoulon collection Ado
    Dim Connection As Object, recordST As Object, tbl(), a&
    Set Connection = CreateObject("ADODB.Connection") ' Créer connexion ADO
    ' Ouvrir connexion (type de connection pour les version superieures a 2003/2007 et +)
    Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & lPath & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    Set recordST = Connection.OpenSchema(20) ' Récupérer la liste des feuilles ' 20 = adSchemaTables
    Do Until recordST.EOF
        Debug.Print recordST!TABLE_NAME
        If recordST!TABLE_NAME Like "*$" Or recordST!TABLE_NAME Like "*'" Then
            a = a + 1
            ReDim Preserve tbl(1 To a)
            tbl(a) = Replace(Replace(recordST!TABLE_NAME, "$", ""), "'", "")
        End If
        recordST.MoveNext
    Loop
    recordST.Close: Connection.Close: Set recordST = Nothing: Set Connection = Nothing
    If a = 0 Then
        ListSheetOnClosedFile = Array() ' on met un tableau vide pour eviter l'erreur dans la sub appelante
    Else
        ListSheetOnClosedFile = tbl
    End If
End Function

pour les feuilles on peut simplifier par
If InStr(recordST!TABLE_NAME, "$") > 0 Then

 

[laurent950]

Petite précision importante : si un classeur est fermé et contient des feuilles protégées, il est impossible d’accéder à leur contenu directement via DAO, ADO ou même en lisant le XML du fichier.
On peut seulement récupérer les noms des feuilles, mais pour lire les cellules, il faut ouvrir le classeur et, si nécessaire, déprotéger les feuilles avec le mot de passe.
Autrement dit, il n’existe pas de méthode “magique” pour contourner la protection depuis un fichier fermé.

 

[Dudu2]

@laurent950,

Je viens de tester (avec ce fichier de test) et finalement, une feuille protégée passe sans problème.
Ou j'ai raté quelque chose...