Microsoft 365 Liste des fichiers dans le répertoire

let
    // Obtenir le chemin du classeur depuis le nom défini "Path"
    SourcePathTable = Excel.CurrentWorkbook(){[Name="Chemin"]}[Content],
    WorkbookPath = SourcePathTable{0}[Column1],
    // Extraire le dossier du chemin du classeur
    FolderPath = Text.BeforeDelimiter(WorkbookPath, "["),
    // Lister les fichiers dans le dossier
    Source = Folder.Files(FolderPath),
    #"Lignes filtrées" = Table.SelectRows(Source, each ([Extension] = ".pdf")),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Lignes filtrées",{"Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path"})
in
    #"Colonnes supprimées"

OemToChar Liste, Liste

Private Declare PtrSafe Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Sub TestDir()
Dim F, sn, res As String
F = "d:\dev\office\excel"
res = CreateObject("wscript.shell").exec("cmd /c dir """ & F & """ /a:-d /b").StdOut.ReadAll
OemToChar res, res
sn = Split(res, vbCrLf)
End Sub

chcp 1252
dir /A:-d /B /S>C:\Users\XXXX\AppData\Local\Temp\Listage.txt

 Dim TempString As String,chemin,,expression,extension,recurr
 chemin="k:\vba excel"
 expression="*toto*"
 extension=".xlsm"
 recurr=" S/"
 Tempfile=ethisworkbook.path &"\output.txt"
 TempString = Replace("cmd /C chcp 1252 > Null && Dir ""*****""" & Recurr & " /b /a-d > """ & tempFile & """", "*****", CStr(Chemin) & Expression & extension, 1, -1, vbTextCompare)

CreateObject("Wscript.Shell").Run TempString, 0, True ' 0 = cacher la fenêtre, True = attendre que la commande se termine

Sub TestDir()
Dim F, sn, res As String
F = "d:\dev\office\excel"
res = CreateObject("wscript.shell").exec("cmd /c chcp 1252 > nul  & cmd /c dir """ & F & """ /a:-d /b").StdOut.ReadAll
sn = Split(res, vbCrLf)
End Sub