Discussion :

[Pierre Fauconnier]

Maintenant, la mécanique est bonnne

Ce qui pose problème, c'est que tu essaies d'ouvrir un xls (version 2003). Or, Poqer Query ne récupère pas le contenu de ces fichiers de la même manière => les colonnes présentes dans la structure PQ du fichier ne sont pas identiques...

Versions xlsx ou xlsm




Versions XLS



Es-tu sûr de tes fichiers xls?

[Kestion100]

OK avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Option Explicit
 
Sub Test()
 
  Dim r As Range
 
 
 
    Range("Fichier").Value = Cells(ActiveCell.Row, ActiveCell.Column).Value
    On Error Resume Next
    Range("pq_Feuilles").ListObject.QueryTable.Refresh True
 
    MsgBox Application.Evaluate("textjoin("" - "",true,pq_Feuilles)")
    Application.EnableEvents = True
 
 
End Sub

[Kestion100]

OK, je peux virer les fichiers .xls, aucun problème

[Pierre Fauconnier]

Sinon, on aiguille la requête en fonction de ce qu'elle a reçu et de la présence de la colonne ou non...

[Kestion100]

En fait le code fonctionne avec les deux .xls et .xlsx, avec .xls, j'ai l'erreur qui s'affiche mais je récupère les noms de mes onglets quand même

[Pierre Fauconnier]

Oui, parce que la requête passe sur l'erreur puis continue pour renvoyer la colonne Name qui existe dans la requête quelle que soit la version du fichier.

[Pierre Fauconnier]

Voici la requête Power Query adaptée aux deux formats. Elle consiste en l'ajout d'une colonne qui teste la présence de la colonne Kind. Si Kind est présente, la colonne formulée reprend son contenu, sinon elle reprend la valeur "Sheet".

Avec cette adaptation, la requête passe sans erreurs^(*) sur les xlsx et les xls

Code PowerQuery :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
let
    Fichier = Excel.CurrentWorkbook(){[Name="Fichier"]}[Content]{0}[Column1],
    Source = Excel.Workbook(File.Contents(Fichier)),
    AjoutColonne = Table.AddColumn(Source, "Personnalisé", each if Table.HasColumns(Source, {"Kind"}) then [Kind] else "Sheet"),
    Filtre = Table.SelectRows(AjoutColonne, each [Personnalisé] = "Sheet"),
    Resultat = Table.SelectColumns(Filtre,{"Name"})
in
    Resultat

^(*) Par contre, Power Query ne fait pas la différence entre une feuille et une plage nommée pour les xls. Je n'ai pas vu d'éléments dans la requête qui permettait de ne sélectionner que les feuilles. Mais (je botte en touche ), il me semble que depuis 2007 (soit 14 ans), on a normalement eu le temps de faire migrer ses classeurs xls vers les versions actuelles de l'outil

[Kestion100]

Quand je sauvegarde le fichier j'ai un message:
Attention! Certaines parties de votre document peuvent renfermer des informations personnelles qui ne peuvent pas être supprimées par l'inspecteur de document

Comment puis-je m'en débarrasser?

[Pierre Fauconnier]

Tu dois aller dans Fichier>Informations puis à hauteur du bouton "Vérifier l'absence de problèmes", cliquez sur "Autoriser l'enregistrement de ces informations dans le fichier"...

En général, lorsque je poste un fichier, j'en enlève les infos persos, d'où ce message à l'enregistrement...

[Kestion100]

J'ai bien compris les principes de base et ferai appel à tes tutos, je pense que ce domaine que j'ignorais complètement ouvre plein de possibilités.

As usual with Pierre Fauconnier, PERFECT

Merci