Sélection de photos dans un dossier
Fermé
maitreesox
-
23 nov. 2020 à 22:56
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 25 nov. 2020 à 22:02
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 25 nov. 2020 à 22:02
A voir également:
- Sélection de photos dans un dossier
- Partage de photos - Guide
- Mettre un mot de passe sur un dossier - Guide
- Dossier appdata - Guide
- Toutes mes photos - Guide
- Impossible de supprimer un dossier - Guide
7 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
24 nov. 2020 à 09:50
24 nov. 2020 à 09:50
re,
à essayer
à 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
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
25 nov. 2020 à 00:38
25 nov. 2020 à 00:38
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 !
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 !
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
25 nov. 2020 à 09:47
25 nov. 2020 à 09:47
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é
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.
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.
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
24 nov. 2020 à 00:53
24 nov. 2020 à 00:53
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
24 nov. 2020 à 09:07
24 nov. 2020 à 09:07
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
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
Raymond PENTIER
Messages postés
58393
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
17 096
25 nov. 2020 à 22:02
25 nov. 2020 à 22:02
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 ...
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 ...
25 nov. 2020 à 09:52
fich = Dir("*.jpeg")
remplacer jpeg par le suffixe des noms de la liste... par ex doc ou docx si fichiers Word