Importer des photos du disque dur dans excel
Résolu/Fermé
Wonderchoux
Messages postés
4
Date d'inscription
mercredi 13 janvier 2016
Statut
Membre
Dernière intervention
17 mars 2017
-
13 janv. 2016 à 21:13
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 29 janv. 2016 à 11:43
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 29 janv. 2016 à 11:43
A voir également:
- Importer des photos du disque dur dans excel
- Cloner disque dur - Guide
- Defragmenter disque dur - Guide
- Remplacer disque dur par ssd - Guide
- Chkdsk disque dur externe - Guide
- Comment partager des photos - Guide
3 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
28 janv. 2016 à 16:32
28 janv. 2016 à 16:32
Bonjour,
Voici un exemple:
http://www.cjoint.com/c/FACpGdCtDrQ
Voici un exemple:
http://www.cjoint.com/c/FACpGdCtDrQ
tribun
Messages postés
64861
Date d'inscription
vendredi 24 août 2007
Statut
Membre
Dernière intervention
20 février 2020
12 525
14 janv. 2016 à 07:24
14 janv. 2016 à 07:24
Bonjour
Tu clic sur une case dans la colonne et via Insertion tu va chercher l'image ou la photo.
Essaie.
Tu clic sur une case dans la colonne et via Insertion tu va chercher l'image ou la photo.
Essaie.
Wonderchoux
Messages postés
4
Date d'inscription
mercredi 13 janvier 2016
Statut
Membre
Dernière intervention
17 mars 2017
14 janv. 2016 à 07:37
14 janv. 2016 à 07:37
Oui ça fonctionne pour 10 Photos...
Malheureusement j'ai 500 Photos....:-)
Y a t'il pas une façon autimatique avec un Script?
Merci pour l'aide
Malheureusement j'ai 500 Photos....:-)
Y a t'il pas une façon autimatique avec un Script?
Merci pour l'aide
tribun
Messages postés
64861
Date d'inscription
vendredi 24 août 2007
Statut
Membre
Dernière intervention
20 février 2020
12 525
14 janv. 2016 à 07:40
14 janv. 2016 à 07:40
Je ne sais ! je ne peut te dire oui ou non hélas.
Wonderchoux
Messages postés
4
Date d'inscription
mercredi 13 janvier 2016
Statut
Membre
Dernière intervention
17 mars 2017
27 janv. 2016 à 15:36
27 janv. 2016 à 15:36
Sub machin()
For Each c In Selection
fich = c.Offset(0, 1).Value
ligne = c.Row
ActiveSheet.Pictures.Insert(fich).Select 'ouverture image
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = 72 'hauteur de l'image - un tit qcq chose pour qu'elle soient séparée
.Left = 0 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
.Top = 75 * (ligne - 1) 'et positionner verticalement
End With
Next c
End Sub
Mettre la colonne A en hauteur de 75
placer le lien de l'image dans le colonne B H:\DATA\...\16400260.jpg
pour ne pa devoir écrire tout le lien en B:
en colonne C le lien vers le dossier
en Colonne D le nom de l'image (le référence)
en colonne E ".jpg"
puis rassembler en colonne B : =C1&D1&E1
marquer A
"alt-F8"
Exécuter
For Each c In Selection
fich = c.Offset(0, 1).Value
ligne = c.Row
ActiveSheet.Pictures.Insert(fich).Select 'ouverture image
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = 72 'hauteur de l'image - un tit qcq chose pour qu'elle soient séparée
.Left = 0 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
.Top = 75 * (ligne - 1) 'et positionner verticalement
End With
Next c
End Sub
Mettre la colonne A en hauteur de 75
placer le lien de l'image dans le colonne B H:\DATA\...\16400260.jpg
pour ne pa devoir écrire tout le lien en B:
en colonne C le lien vers le dossier
en Colonne D le nom de l'image (le référence)
en colonne E ".jpg"
puis rassembler en colonne B : =C1&D1&E1
marquer A
"alt-F8"
Exécuter
29 janv. 2016 à 09:02
Merci beaucoup
Donc deux solutions :-)
merci
29 janv. 2016 à 11:43
https://codes-sources.commentcamarche.net/source/101340-redimensionner-les-images-d-un-repertoire-en-centimetres
@+ Le Pivert