Sélection de photos dans un dossier
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.
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
-
Contributeurre,
à 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
-
Contributeurmaitreesox, 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 !
-
Contributeurbonjour à 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é
-
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.
-
-
ContributeurBonsoir.
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.
-
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. -
ContributeurBonjour,
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
-
ContributeurBonjour.
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 ...
