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

 

[crocrocro]

Bonjour @jurassic pork

Au lieu de sélectionner un répertoire et de prendre toutes ses images , on sélectionne les photos qui nous intéressent et on les mets avec le chemin complet et on fait cela pour tous les répertoires qui nous intéressent.

La multi-sélection est active dans mon fichier.
L'adaptation à faire si Daniel reste sur cette option, serait de ne pas réinitialiser le tableau à chaque "Sélectionner" et de stocker pour chaque image son nom long et non son nom court?

 

[jurassic pork]

oui c'est cela , j'ai fait vite fait un essai en modifiant le SelectionnerFichiers :

Sub SelectionnerFichiers()
Dim i As Integer, MesFichiers As Collection, Fichier
Dim RegEx As Object, matches As Object
On Error Resume Next
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = ".*\\(.*)\\(.*)$"
RegEx.Global = True
    Sheets("Menu").Select
    Set MesFichiers = ChoixFichiers()
    Init
    'Set Fso = CreateObject("Scripting.FileSystemObject")
    'Set FsoFolder = Fso.GetFolder(Repertoire) '
    i = 1 + DerLig
    For Each Fichier In MesFichiers
        i = i + 1
        Set matches = RegEx.Execute(Fichier)
        Cells(i, 1) = Fichier
        Cells(i, 2) = matches(0).submatches(0) + "_" + matches(0).submatches(1)
     Next
    Set MesFichiers = Nothing
    DerLig = i - 1
End Sub

Avec ChoixFichiers :

Function ChoixFichiers() As Collection
    Dim x As Integer
    Set ChoixFichiers = New Collection
    If Val(Application.Version) >= 10 Then
       With Application.FileDialog(msoFileDialogFilePicker)
       ' Indiquer le chemin complet du dossier par défaut
        .InitialFileName = "C:\Users\" & Environ("username") & "\Documents\"
        .Show
        For x = 1 To .SelectedItems.Count
           ChoixFichiers.Add .SelectedItems(x)
        Next x
       End With
     End If
End Function

Dans cet essai je renomme les fichiers avec le nom du répertoire dans lequel se trouve les fichiers en préfixe

 

[crocrocro]

Oui, mais là, tu renommes manuellement photo par photo. Mon système le fait automatiquement en ajoutant le nom du dossier avant celui de la photo.
Daniel

@danielco, Non, l'application ZoomBrowserEX de Canon que je donne en exemple (et ce n'est qu'un exemple d'application) renomme tous les fichiers sélectionnés à l'étape 1 "sélectionner les images". Mais le choix est assez réduit.

 

[AR MOR]

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

Bonjour,
Je ne sais si je vais pouvoir être utile, mais je joins un Classeur qui fait des trucs dont tu pourras peut-être tirer qq chose

Il est beaucoup en désordre, car ce n'était qu'une bidouille dans ma construction d'une autre apli

Amicalement en espérant

 

[TooFatBoy]

Je suis obligé de me servir d'Excel parce que je renomme les photos. Je copie les photos de plusieurs dossiers dans le même répertoire. le nom des fichiers dans chaque dossier va de 01.JPG à 36.JPG (anciennes pellicules argentiques). D'où télescopage si je fais des copies simples.​

Daniel

Oui, mais là, tu renommes manuellement photo par photo. Mon système le fait automatiquement en ajoutant le nom du dossier avant celui de la photo.

Juste pour info : pour renommer des fichiers par lot, tu as un excellent soft : Bulk Rename Utility qui permet d'ajouter le nom du dossier en préfix.

​

Ceci dit, si tu te fais ta macro sur mesure, elle fera exactement ce que tu veux comme tu veux.

 

[danielco]

Bonjour à tous,
@TooFatBoy . Merci pour le tuyau. J'ai adapté le code de crocrocro et j'ai pu résoudre mon problème.
Merci à tous.
Daniel