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.

 

[Staple1600]

Re

tenez j'ai trouvé ceci pour power query

Apparemment je suis invisible...

Pour Power Query, j'avais posté un code M ce matin à 10h30

Peut-être qu'il sera vu à 14h10

Bonjour le fil


Une alternative avec PowerQuery

let
    Source = Excel.Workbook(File.Contents("C:\Chemin\Vers\Fichier.xlsx"), null, true),
    FeuillesSeulement = Table.SelectRows(Source, each [Kind] = "Sheet"),
    NomsDesFeuilles = Table.SelectColumns(FeuillesSeulement, {"Name"})
in
    NomsDesFeuilles

PS: adapter le chemin vers le fichier dans le code M

 

[Cousinhub]

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

Bonjour,
Pas sûr 🧐
PQ peut importer les feuilles, même en VeryHidden et protégées par mdp...(même si le code VBA est protégé...)
Seul le fichier protégé par mdp en lecture empêche PQ d'y accéder.
Bonne apm

 

[Staple1600]

Re, Bonjour @Cousinhub

Invisible ou transparent, décidemment c'est pas ma journée.

 

[Dudu2]

Invisible ou transparent, décidemment c'est pas ma journée.

🤣
Mais non @Staple1600, mais du PowerQuery, perso je sais pas quoi en faire.
Puis-je exécuter du PQ et récupérer les résultats dans VBA où se trouve une palanquée de traitements que je dois faire après avoir récupéré les feuilles ?

 

[Cousinhub]

Re,
Un exemple d'une requête pilotée par VBA
Tu choisis le fichier, et la requête te donne la liste des onglets de ce fichier

 

[dysorthographie]

Avec ADO (OLEDB), quand tu ouvres un fichier Excel (.xls, .xlsx, .xlsm), tu ne passes pas par l’interface Excel mais par un fournisseur de données (Jet ou ACE).

Ce fournisseur ne comprend pas les mécanismes de protection de feuille (verrouillage des cellules, interdiction de modification, etc.).
👉 Résultat : tu peux lire les données d’un onglet protégé sans problème, puisque la protection agit seulement dans l’interface Excel, pas dans le moteur ADO.

 

[patricktoulon]

Avec ADO (OLEDB), quand tu ouvres un fichier Excel (.xls, .xlsx, .xlsm), tu ne passes pas par l’interface Excel mais par un fournisseur de données (Jet ou ACE).

Ce fournisseur ne comprend pas les mécanismes de protection de feuille (verrouillage des cellules, interdiction de modification, etc.).
👉 Résultat : tu peux lire les données d’un onglet protégé sans problème, puisque la protection agit seulement dans l’interface Excel, pas dans le moteur ADO.

punaise Robert c'est pas des choses a dire trop fort en public ça 😉

 

[laurent950]

🤣
Mais non @Staple1600, mais du PowerQuery, perso je sais pas quoi en faire.
Puis-je exécuter du PQ et récupérer les résultats dans VBA où se trouve une palanquée de traitements que je dois faire après avoir récupéré les feuilles ?

👉 « Mais qui se STAPLE tout le travail ? C’est StapleGPT… l’IA 1600 chevaux ! »

 

[dysorthographie]

Oui je lui ai demandé de rédiger la réponse

Maintenant si tu penses que j'ai demandé à chatgpt de rédiger le code c'est pas grave 👎

 

[patricktoulon]

bonsoir

ok je sort 😛 🤪 🤣 🙃

 

[Staple1600]

Re

Je peux savoir pourquoi @laurent950 et @patricktoulon vous me tombez dessus sans raison ?

Je n'ai fait que répondre à 10h30 à la question de @dysorthographie

Je sais pas si les adeptes de powerQery on l'a réponse

C'est pas ce genre de messages qui va m'inciter à refréquenter XLD plus souvent.

 

[dysorthographie]

Re

Je peux savoir pourquoi @laurent950 et @patricktoulon vous me tombez dessus sans raison ?

Je n'ai fait que répondre à 10h30 à la question de @dysorthographie


C'est pas ce genre de messages qui va m'inciter à refréquenter XLD plus souvent.

personnellement je n'ai pas accès à power Querry j'invitai juste ceux qui métrise à intervenir! qu'as tu compris?

c'est le mot adepte ? je voie pas d'insulte n'y de sarcasme.

je suis un adepte du SQL et je le revendique!

je n'avais pas l'intention de te blesser qui que ce soit et je n'enlève rien de ce que j'ais dis .

 

[Staple1600]

Re

@dysorthographie
j'ai compris exactement ce tu dis: "invitation à intervenir" avec une proposition Power Query
Ce que j'ai fait.
Puis, j'ai juste évoqué la non-réaction à mon message (celui de 10h30)

Pour ensuite me faire "titiller" gratuitement par @laurent950 et @patricktoulon.

Plus ca va, puis XLD n'est plus ce qu'il était (en tout cas c'est mon ressenti) et cela explique pourquoi je viens de moins en moins sur XLD.

J'arrête là car le seul message de ma part relatif à la question c'est celui de 10h30.

Allez bonne soirée à tous, je passe en mode "log out"

 

[Dudu2]

Les Experts, tout ce que vous donnez comme information est bon à prendre, qu'on l'utilise ou pas. On apprend toujours quelque chose.
Je suis malheureusement totalement ignorant de PowerQuery mais je vais m'intéresser au code @Cousinhub qui l'a interfacé avec VBA et le garder au chaud en cas de besoin. Quant aux BD de @dysorthographie, pareil.

En tous cas, grâce à vos retours, j'ai pu faire un traitement que je n'aurais pas pu faire sans. Merci à tous.

 

[patricktoulon]

Bonjour à tous
perso je n'ai rien contre power query je l'utilise au boulot dans mes fichiers excel par ce que le peux
à la maison non par ce que je suis sur 2013 32 bit et le complément power pivot pour cette version est une blague
et je suis un inconditionnel de Ado en vba
et j'ajoute:
que toute les solutions valides sont bonnes a partir du moment ou elles sont maitrisées

@Staple1600 ce n’était qu'une blague personne ne te tombe dessus