Sélection de photos dans un dossier

maitreesox -  
Raymond PENTIER Messages postés 58219 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai un fichier EXCEL avec une liste de référence (500 références) et en face un dossier avec des photos en format JPEG (10 000 photos). Ces photos ont toutes été renommées et dans celles-ci on pourra retrouver celles de ma liste de référence.
Il faut que je puisse sélectionner les 500 photos qui m'intéressent (celles de mon fichier EXCEL) afin de les regrouper dans un dossier.

Cela est-il possible?

Merci pour vos réponses.

7 réponses

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    re,

    à essayer 

    Sub copier_photos()
    Dim source As String, destination As String, fich As String
    Dim Copie As Object

    source = "d:\documents\" 'à adapter  liste des photos à copier
    destination = "d:\documents\fun\" 'à adapter
    Set Copie = CreateObject("Scripting.FileSystemObject")

    ChDir source
    fich = Dir("*.jpeg") 'suffixe
    While fich <> ""
        Copie.copyfile fich, destination
        fich = Dir
     Wend
     
    Set Copie = Nothing
    End Sub


    1
    1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Errata
      fich = Dir("*.jpeg")

      remplacer jpeg par le suffixe des noms de la liste... par ex doc ou docx si fichiers Word
      0
  2. Raymond PENTIER Messages postés 58219 Date d'inscription   Statut Contributeur Dernière intervention   17 485
     
    maitreesox, bonsoir.

    J'espère que tes photos ont toutes une très faible définition ?
    Parce que lorsque tu auras inséré 500 photos à 3 Mo, tu obtiendras un fichier qui pèsera plus de1500 Mo, c'est-à-dire 1,5 gigaoctet ! Autant dire que tu ne pourras même pas ouvrir ton fichier ; encore moins l'envoyer par mail ...
    Il faudrait que tu n'aies que des images à moins de 50 Ko chacune, pour ne pas dépasser 25 000 Ko, soit 25 Mo, ce qui est déjà très important !
    1
  3. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    bonjour à tous,

    Maitreesox a indiqué qu'il avait déjà 10 000 photos dans son dossier "source", donc...

    On attend un coucou de sa part peut ^tre pour remercier de l'entraide dont il a bénéficié
    1
    1. maitreesox
       
      Bonjour à tous,

      Tout d'abord merci à michel_m. Par contre n'étant pas un crack en informatique, pouvez-vous m'indiquer comment procéder?
      Ou dois-je renseigner ces informations?

      Merci pour le retour de Raymond mais comme l'a souligné michel-m mon fichier possède 10 000 photos pour un poids de 5Go.

      Cordialement.
      0
  4. Raymond PENTIER Messages postés 58219 Date d'inscription   Statut Contributeur Dernière intervention   17 485
     
    Bonsoir.

    Je n'ai pas bien compris ce que tu veux :
    Pour sélectionner ensemble des fichiers, il suffit de cliquer sur leur nom dans le répertoire, en maintenant la touche [ctrl] enfoncée ; cela fait, on peut les déplacer ou les copier dans un nouveau répertoire ou, mieux, en créer des raccourcis.
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. maitreesox
     
    Bonjour,

    Faire un [Ctrl] pour sélectionner des photos, pas de problème.
    Mais dans le cas présent j'ai 500 photos à sélectionner et faire cela en manuel je n'ose pas imaginer le temps sue cela va prendre.
    En sachant qu'aujourd'hui c'est 500, demain 1000, après demain 800 etc.
    Cordialement.
    0
  7. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Bonjour,

    On peut le faire par VBA mais il faudrait nous dire:
    -les photos sont elles copiées ou transférées ?

    j'avais une bidouille ou je montrais dans un classeur une sélection d'images et on pourrait l'adapter à ta demande

    mais ne sois pas pressé....

    tu dis

    0
    1. maitreesox
       
      Bonjour,
      Je veux que ma sélection de photo puisse être copiée et coller dans un dossier.

      Merci
      0
  8. Raymond PENTIER Messages postés 58219 Date d'inscription   Statut Contributeur Dernière intervention   17 485
     
    Bonjour.

    Je m'excuse : J'avais cru que tu voulais insérer les 500 images dans ton classeur Excel ...
    Donc je confirme : Tu classes tes 500 photos suivant tes propres critères (taille, date, nom ...), tu les classes et tu les copies.
    Si tu avais eu la présence d'esprit d'ajouter des mots-clés à chaque sauvegarde de photo, cela aurait grandement facilité ta sélection ...
    0