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

[danielco]

Bonjour,

Je cherche une procédure me permettant de lister et de recopier les phots sélectionnées dans l'Explorateur de fichiers.

Merci d'avance.

Daniel

 

[TooFatBoy]

Cependant, s'il était possible, dans les deux cas d'avoir une boîte de dialogue de choix des fichiers en plein écran, ça serait la cerise sur le gâteau.

Il te suffit, comme pour toute fenêtre Windows, de faire un double-clic dans la barre de titre.

 

[patricktoulon]

bonjpur
pour le fun avec getopenfilename puisque l'on decide du titre dela barre on a pas de mal a le retrouver

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

 

[danielco]

C'est peut-être une question de version ? Les ascenseurs n'apparaissent que selon le nombre de fichiers et la taille de la fenêtre.
Daniel

 

[patricktoulon]

re
bien évidemment

 

[TooFatBoy]

Les ascenseurs n'apparaissent que selon le nombre de fichiers et la taille de la fenêtre.

Là aussi : comme dans toute fenêtre Windows.

Mais quel que soit le nombre de fichiers, le double-clic dans la barre de titre ouvre la fenêtre de la Boîte de dialogue fichier en plein écran.