Microsoft 365 VBA - Lister les photos sélectées dans l'Explorateur Windows

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long

Sub test()
    Dim Mesfichier As Variant
    mesfichiers = selectedlistfile
    For I = 1 To UBound(mesfichiers)
        MsgBox mesfichiers(I)
    Next
End Sub

Function selectedlistfile()
    Application.OnTime Now + 0.00002, "Dialogfullscreen" 'ouverture un !! ou !!! plusieurs !! fichiers en gardant la touche control appuyée
    Dim fichier As Variant, I&, OK As Boolean, t ' variables
    'ouverture du dialog
    fichier = Application.GetOpenFilename("Image JpG (*.jpg;*.jprg), *.jpg;*.jpeg", 1, "CHOISIR UN OU DES FICHIERS", , True)
    If IsArray(fichier) Then ' si multi selection
        MsgBox UBound(fichier)
        selectedlistfile = fichier
    Else 'sinon si il y a qu'une photo
        If fichier = False Then Exit Function ' si click sur annuler ou fermeture par croix
        selectedlistfile = Array(fichier)
    End If
End Function

Sub Dialogfullscreen()
    Dim hwnd As LongPtr
    hwnd = FindWindow(vbNullString, "CHOISIR UN OU DES FICHIERS")
    ShowWindow hwnd, 3
End Sub