Microsoft 365 Power Query - importation données masquées

[Alexx2019]

Bonjour,

J'utilise Power Query pour importer des données de plusieurs tableurs dans une base de données générale. Le souci, c'est que dans les excel source, il y a des données masquées que je n'aimerais pas afficher dans la base de données Power Query. Pour l'instant toutes les lignes masquées apparaissent. Je ne trouve pas l'option pour ne pas importer ces données. Savez-vous m'aider?

Merci d'avance.

 

[job75]

Bonjour Alexx2019,

Les données masquées le sont par le formatage des lignes et/ou colonnes.

Sauf erreur Power Query ne permet pas d'importer/copier ces formats.

A+

 

[Hasco]

Bonjour,

A ma connaissance il n'y en a pas. Une façon de contourner le problème est de rajouter une colonne dans chaque source avec une formule comme ci-dessous qui indiquera si la ligne est visible (1) ou non (0): =AGREGAT(3;5;[@lacolonne])

Ensuite dans les requêtes vous pouvez filtrer les lignes 0 sur cette colonne.

Bonne journée

 

[Alexx2019]

Merci pour votre aide. Ça me fait 38 fichiers à modifier mais au moins je suis fixé...

 

[chris]

Bonjour à tous

Sinon filtrer dans PowerQuery selon le même filtre que l'original s'il n'est pas aléatoire...

 

[Alexx2019]

Malheureusement, les données masquées peuvent être différentes dans tous les tableurs.

Roblochon, merci aussi pour la découverte de la fonction AGREGAT(), c'est puissant ce machin-là!

 

[job75]

Re,

Bien entendu on peut utiliser le VBA, voyez les fichiers joints et cette macro dans le fichier .xlsm :

Sub Importer()
Dim chemin$, fichier$, F As Worksheet, lig&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xlsx")
Set F = ActiveSheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier est déjà ouvert
Rows("2:" & Rows.Count).Delete 'RAZ
While fichier <> ""
    With Workbooks.Open(chemin & fichier).Sheets(1)
        lig = F.Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
        If .ListObjects.Count Then .ListObjects(1).DataBodyRange.Copy F.Cells(lig, 1)
        .Parent.Close
    End With
    fichier = Dir
Wend
With F.UsedRange
    .Interior.ColorIndex = xlNone
    .Borders.LineStyle = xlNone
End With
End Sub

Edit : j'ai testé avec 38 fichiers sources (copies des précédents), la macro s'exécute en 8 secondes chez moi.

Bonne nuit.

 

[Alexx2019]

Super, merci beaucoup, pour la prochaine, je suivrai votre méthode.

Bonne journée.