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

danielco · Mardi à 16:46

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

Valtrase · Hier à 13:25

Re,
Petit classeur exemple avec possibilité soit de déplacer, soit de copier les fichiers d'un répertoire à un autre

danielco · Hier à 15:30

Valtrase à dit:
Bonjour à tous,

Je ne vois pas où est le problème avec Application.FileDialog(msoDialogFilePicker)
Vous pouvez voir les photos.
Exemple :
Regarde la pièce jointe 1207119

Le problème, c'est que ça m'oblige à les regarder l'une après l'autre, alors que je les sélectionne d'après l'icône, sans les ouvrir. Je traite des centaines de photos.

Daniel

danielco · Hier à 15:41

Valtrase à dit:
Re,
Petit classeur exemple avec possibilité soit de déplacer, soit de copier les fichiers d'un répertoire à un autre

Quand je clique sur le bouton "Macro", j'ai une erreur 1004 : "la méthode de l'objet '_WorkSheet' a échoué" sur la ligne :

VB:

Tests.CopyPictures sys_Settings.Range("doMovePictures").Value

Daniel

danielco · Hier à 15:44

danielco à dit:
Le problème, c'est que ça m'oblige à les regarder l'une après l'autre, alors que je les sélectionne d'après l'icône, sans les ouvrir. Je traite des centaines de photos.

Daniel

Finalement, tu as raison !

Daniel

jurassic pork · Hier à 16:00

danielco à dit:
Quand je clique sur le bouton "Macro", j'ai une erreur 1004 : "la méthode de l'objet '_WorkSheet' a échoué" sur la ligne :

VB:

Tests.CopyPictures sys_Settings.Range("doMovePictures").Value

Daniel

Hello,
Valtrase n'a pas mis le bon nom de plage c'est sysr_doMovePictures

VB:

Tests.CopyPictures sys_Settings.Range("sysr_doMovePictures").Value

Ami calmant, J.P

danielco · Hier à 16:17

Merci à tous. Le code de Valtrase modifié par jurassic pork fonctionne parfaitement.

Daniel

danielco · Hier à 16:28

...Celui de crocrocro également. 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.
Daniel

crocrocro · Hier à 18:15

danielco à dit:
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.
Daniel

Cerise non dénoyautée ...
Il suffit d'amener la souris dans l'angle de la boite de dialogue pour avoir une double-flèche en diagonale et d'étirer vers le bas.

TooFatBoy · Hier à 18:36

danielco à dit:
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.

Si tu utilises la Boîte de dialogue fichier il te suffit, comme pour toute fenêtre Windows, de faire un double-clic dans la barre de titre.

danielco · Hier à 18:38

Ceci dit, le système est mal foutu, en ce sens qu'on ne peut indiquer deux "solutions". Désolé pour crocrocro, victime du hasard, que je remercie encore une fois

TooFatBoy à dit:
La Boîte de dialogue fichier permet aussi de visualiser les images, si je ne me trompe.

Peut-être qu'une simple sélection des fichiers dans l'Explorateur de fichiers ne suffit pas et qu'il faudrait aussi faire un "Copier" pour les mettre dans le presse-papiers.

Mais franchement, passer par la Boîte de dialogue fichier me paraît plus simple, aussi bien à programmer qu'à utiliser.

Et du coup ça m'amène à te poser une autre question : puisque tu passes par l'Explorateur de fichiers, pourquoi aller passer par Excel pour copier/coller (ou déplacer) les fichiers, plutôt que de le faire naturellement dans l'Explorateur de fichiers ???

Oui, bien sûr, c'est ce que fait le classeur de Valtrase. Je l' ajouté dans celui de crocrocro. Mon problème était de récupérer, le nom des fichiers. Le copier coller par macro, je sais faire.

Daniel

danielco · Hier à 18:41

crocrocro à dit:
Cerise non dénoyautée ...
Il suffit d'amener la souris dans l'angle de la boite de dialogue pour avoir une double-flèche en diagonale et d'étirer vers le bas.
Regarde la pièce jointe 1207153

Exact, mais ch.... D'autant que le carré en haut à droite de la fenêtre a disparu. Je brasse des dizaines de dossiers. Merci quand même. C'est un point accessoire.

Daniel

TooFatBoy · Hier à 18:46

danielco à dit:
Mon problème était de récupérer, le nom des fichiers.

D'où ma proposition de laisser tomber l'Explorateur de fichiers et de plutôt passer par la Boîte de dialogue fichier.
Je crois comprendre que c'est ce que tu as choisi de faire au final.

crocrocro · Hier à 18:55

Je complète :
Dès lors qu'on a agrandi une première fois la boite de dialogue, aux fois suivantes, la boite conserve la taille précédente.
avec le code ci-dessous on a
- un titre dédié pour la fenêtre "Sélectionner vos fichiers images"
- un texte dédié pour le bouton (dès qu'on a sélectionné au moins 1 fichier) "Sélectionner"

Je ne vois pas comment le carré à droite peut disparaitre (une copie d'écran svp)

VB:

Sub SelectionnerRepertoireImage()
' Sélection du répertoire
' Copie du nom de TOUS les fichiers images du répertoire dans le tableau
Dim Repertoire
Dim i As Integer
Dim n As Integer
Dim Ligne As Integer
Dim FichierImage As Object
Dim NomCourtImage As String

    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogOpen)
    ' Indiquer le chemin complet du Repertoire par défaut
        .InitialFileName = "C:\Users\" & Environ("username") & "\Documents\"
        .Title = "Sélectionner vos fichiers images"
        .AllowMultiSelect = True
        .InitialView = msoFileDialogViewLargeIcons
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        .ButtonName = "Sélectionner"
        .Show
        If .SelectedItems.Count > 0 Then
            Repertoire = .InitialFileName
            Range("NOM_REP_IMG") = Repertoire
            ActiveSheet.Range(TAB_IMAGES).ClearContents
            i = 0
            ActiveSheet.Range(TAB_IMAGES).Resize(ActiveSheet.Range(TAB_IMAGES).Rows.Count, ActiveSheet.Range(TAB_IMAGES).Columns.Count).Name = TAB_IMAGES
            For i = 1 To .SelectedItems.Count
                NomCourtImage = Mid(CStr(.SelectedItems(i)), InStrRev(CStr(.SelectedItems(i)), "\") + 1)
                ActiveSheet.Range(TAB_IMAGES).Cells(i, 1) = NomCourtImage
            Next i
            ActiveSheet.Range(TAB_IMAGES).Resize(i, ActiveSheet.Range(TAB_IMAGES).Columns.Count).Name = TAB_IMAGES
            
            ' Tri du tableau par nom image croissant
            ActiveSheet.Sort.SortFields.Clear
            ActiveSheet.Sort.SortFields.Add _
                Key:=Range(TAB_IMAGES).Columns(1), _
                SortOn:=xlSortOnValues, _
                Order:=xlAscending, _
                DataOption:=xlSortNormal
            With ActiveSheet.Sort
                .SetRange Range(TAB_IMAGES)
                .Header = xlGuess
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
            MsgBox .SelectedItems.Count & " images dans le répertoire sélectionné" & vbCrLf & "Le tableau est trié sur le nom", vbInformation
        Else
            RepertoireAvecImages = False
        End If
    End With
    Application.ScreenUpdating = True
End Sub

danielco · Hier à 18:58

TooFatBoy à dit:
D'où ma proposition de laisser tomber l'Explorateur de fichiers et de plutôt passer par la Boîte de dialogue fichier.
Je crois comprendre que c'est ce que tu as choisi de faire au final.

Effectivement. J'ai mis du temps à comprendre que la boîte de dialogue n'est que légèrement différente de l'explorateur de fichiers.

Daniel

danielco · Hier à 19:00

crocrocro à dit:
Je ne vois pas comment le carré à droite peut disparaitre (une copie d'écran svp)

Explorateur :

Boîte de dialogue :

Daniel

crocrocro · Hier à 19:20

je ne comprends pas, la capture ne montre que le haut de la boite de dialogue.
Faites l'essai suivant :
Après avoir ouvert la boite de dialogue,
en haut à droite, clic successivement les 2 icones de gauche sélectionner Grandes icones - ne pas afficher le volet de visualisation

Normalement la boite de dialogue présente un ascenseur vertical à droite et tout en bas, quelquesoit la taille de la fenêtre son angle bas droit. Avec la souris positionnée correctement sur cet angle (double flèche diagonale) on peut étirer la boite.

Dans mon exemple, sur le répertoire, il y a plus de 400 phtotos que bien sûr je ne peux afficher sur la 1ère page mais seulement une 60 aines selon le format paysage ou portrait.
Pour la sélection, pas évidente bien sûr si vous avez 1000 photos dans le répertoire, en jouant avec les touches CTRL maintenu (sélections individuelles),
MAJ maintenu (sélection depuis la dernière sélection jusqu'à l'image sélectionnée)
vous devez vous en sortir

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

danielco

XLDnaute Accro

Valtrase

danielco

XLDnaute Accro

danielco

XLDnaute Accro

danielco

XLDnaute Accro

jurassic pork

XLDnaute Occasionnel

danielco

XLDnaute Accro

danielco

XLDnaute Accro

crocrocro

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

danielco

XLDnaute Accro

danielco

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

danielco

XLDnaute Accro

danielco

XLDnaute Accro

crocrocro

XLDnaute Occasionnel

Pièces jointes

Discussions similaires