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

Dudu2 · Vendredi à 21:46

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.

dysorthographie · Hier à 01:14

Bonjour,
Dans le lien que j'ai fourni je donne des exemples de connections. Tu as la fonction GenereCSTRING qui te permet de créer une connexion sans rien y connaître.

ModuleRequeteurUniversel contient tout ce qui est utile pour jouer avec une base de données que ce soit SQL serveur, Oracle, MySQL, Excel, CSV etc.

GenereCSTRING te retourne le conectionString en fonction du type te base de données à traiter, dans notre cas xls. Notes que des paramètres optionnel permettent de choisir les informations en fonction du type de base. Serveur par exemple sera utile pour SQL serveur, Oracle, MySQL.

VB:

Sub test()
Dim CN As Object, Tables() As String
Set CN = CreateObject("Adodb.connection")
CN.Open GenereCSTRING(Xls...

Staple1600 · Hier à 14:09

Re

patricktoulon à dit:
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

Staple1600 à dit:
Bonjour le fil

Une alternative avec PowerQuery

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 · Hier à 14:36

laurent950 à dit:
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 · Hier à 15:09

Re, Bonjour @Cousinhub

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

Dudu2 · Hier à 15:15

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 · Hier à 15:29

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 · Hier à 15:38

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 · Hier à 15:47

dysorthographie à dit:
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 · Hier à 16:09

Dudu2 à dit:
🤣
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 · Hier à 17:36

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 · Hier à 20:50

bonsoir

ok je sort 😛 🤪 🤣 🙃

Staple1600 · Hier à 21:46

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

dysorthographie à dit:
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.

Cousinhub · Hier à 21:57

Staple1600 à dit:
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.

Hi,
Tu n'es pas sans savoir que ce site, phagocyté VBA, n'est pas ouvert à tous...
Et que toute référence à "Power Query" implique une contre-attaque....
Mais ceci ne doit surtout pas t'empêcher de montrer ta différence de penser (Like FP)
Bonne soirée, et bon W-E
Edit, pour ceux qui n'aurait pas compris...

Ici, dès qu'on parle Power Query, on se fait démolir....

Cousinhub · Hier à 22:22

Cousinhub à dit:
Hi,
Tu n'es pas sans savoir que ce site, phagocyté VBA, n'est pas ouvert à tous...
Et que toute référence à "Power Query" implique une contre-attaque....
Mais ceci ne doit surtout pas t'empêcher de montrer ta différence de penser (Like FP)
Bonne soirée, et bon W-E
Edit, pour ceux qui n'aurait pas compris...
Regarde la pièce jointe 1222093
Ici, dès qu'on parle Power Query, on se fait démolir....

Re-,
T'en veux une preuve????

J'ai mis ce fichier...
Tu as "liké", tout comme @Dudu2
Mais 1 téléchargement uniquement...
Bref, de l'esbrouffe.. complet...

dysorthographie · Hier à 23:03

Staple1600 à dit:
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 · 2025-09-06T23:12:28+0200

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"

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

Dudu2

XLDnaute Barbatruc

Pièces jointes

dysorthographie

Staple1600

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency