Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insertion simple d'images à partir d'un repertoire

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pierre93
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pierre93

Guest
Bonjour à tous,

Mille excuses si cette question a déjà été traitée, je n'en ai pas trouvé trace ou tout au moins je n'ai trouvé que des morceaux de réponses que je n'arrive pas forcément à rassembler.

Voici mon problème : J'ai un répertoire avec 350 photos, et j'aimerais les insérer dans un fichier excel de manière automatisée, quelle est la procédure à suivre ? Dans mon fichier excel le nom de l'image peut être dans deux colonnes : une image peut avoir la dénomination de la colonne B et une autre image peut avoir la dénomination de la colonne J. De plus les images ne sont pas au même dimensions et sont bien trop grande pour un fichier excel, l'idéal serait donc de pouvoir aussi redimensionner les photos par la même occasion (n'ayant pas encore photoshop sur mon PC je ne peux pas générer de script sur Photoshop pour homogénéiser mes images) et que les cellules de ma feuille Excel s'adaptent au format préalablement décidé.

Le but de la manip est bien entendu de m'éviter d'insérer les 350 photos à la main et d'avoir un rendu lisible. Je vous mets un exemple en pièce jointe et vous remercie d'avance. Comme je suis pas très malin faudra bien m'expliquer la procédure de A à Z 🙂.
Merci d'avance et bonne journée.
 

Pièces jointes

Trier par date Trier par votes
Re : Insertion simple d'images à partir d'un repertoire

Bonjour,
L'ajout de 350 photos dans un fichiers Excel va énormément alourdir celui-ci.
Peut être pourriez vous mettre ces photos comme image de fond dans des commentaires.
JB avait proposé ce code:
Sub PhotoCommentaire()
ChDir ActiveWorkbook.Path
Range("A2").Select
Do While ActiveCell <> ""
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=ActiveCell.Value
ActiveCell.Comment.Shape.Fill.UserPicture ActiveCell.Value & ".jpg"
ActiveCell.Comment.Shape.Height = 50
ActiveCell.Comment.Shape.Width = 50
ActiveCell.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
ActiveCell.Comment.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Pour que celuici fontionne il faut que le nom de vos photos se trouve en colonne A et qu'elles soit toute en JPG et dans le même dossier que votre classeur.
Chaque cas se retrouvera doté d'un commentaire avec une image de 50X50
En espérant que cette solution vous conviendras,
cordialement
 
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Merci pour cette réponse très rapide, j'étais tombé sur le code de JB, mais qui me donnais une erreur à l'exécution de la macro, et malheureusement le code donné ci-dessus me donne la même erreur : Erreur d'exécution ! 2147024809 (80070057) le fichier spécifié est introuvable", la ligne soulignée dans VB est ActiveCell.Comment.Shape.Fill.UserPicture ActiveCell.Value & ".jpg". Or mes images sont bien en jpg et dans le même répertoire que mon classeur Excel. Peut être est-ce très bête mais je ne comprends pas d'où vient l'erreur pour l'instant.

MAJ : N'ayant pas réalisé le fichier de base, je me suis aperçu qu'une ligne posait problème, je l'ai supprimé, la macro bloque néanmoins à la premiere ligne, le commentaire est bien créé, mais la bulle reste vierge (code VB bloquant : ActiveCell.Comment.Text Text:=ActiveCell.Value). De plus après vérif auprès du service voulant utilisé le fichier la visualisation en commentaire ne convient pas 🙁 ah ces gens du marketing 🙂. Mais merci néanmoins pour cette aide !

MAJ2 : En fait j'ai compris d'ou venait le problème en fait il y en a deux : le premier est que mes noms de photos sont parfois (mais pas tout le temps) uniquement composés de chiffres et que même en changeant le format de mes cellules en texte cela fait planter la macro et deux certaines références n'ont pas de photos et cette macro ne sait quoi faire quand elle ne trouve pas l'image correspondant à la référence.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Bonjour Pierre

Vois si cela te convient

La photo peut etre indifferement en colonne B ou J
Une valeur (60) est eventuellement a adapter dans la macro
En cas d'ajout ou de modification des noms de photo la mise a jour integrale est faite

Edit: Salut Efgé
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Pierre93 est toujours aussis réactif...
Je venais juste de trouver le problème du code de JB:
Il faut remplacer la ligne :ChDir ActiveWorkbook.Path par
ChDir "U:\Dosiier\Fichier" (le chemin complet quoi...)
Cordialement
 
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Je ne peux pas modifier mon message précédent je le rectifie donc le début devait être: Pierrejean est toujours aussis réactif... ;-)
 
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Eh bien chapeau et un grand merci à pierrejean et efgé, qui m'ont fait gagner énormément de temps. Allez je suis un peu gourmand... Imaginons que je dois aller chercher les photos dans plusieurs répertoires différents je dois juste rajouter les noms des répertoires sur cette ligne ?
rep_image = rep & "/" & "repertoire photo" & "/" & "rep 2" & "/" & "rep 3" etc...
 
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Ok, merci pour cette info, alors que dois-je rajouter dans le code pour ajouter des répertoires de photos se trouvant au même niveau que le repertoire principal ?
Autre petite question (je commence à abuser 🙂 ), lorsque je fais un filtre après l'exécution de la macro les photos des lignes non visibles restent, elles, visibles les une sous les autres existe-t-il un moyen pour qu'après un filtre l'on ne puisse voir que les photos sélectionnées par le filtre (désolé si je ne suis pas très clair 😕).
De même lorsque je fais un tri il me semble que les photos ne se calent plus avec les lignes correspondantes, peut-on faire quelque chose ? Merci encore pour votre aide.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Re

Avant de me lancer dans des modifs a 1ere vue consequentes il me faudrait quelques renseignements complementaires:
Le repertoire repertoire photo existe-t-il toujours ,en sus des repertoires du niveau du repertoire principal ?
Peut-on utiliser un Usf pour filtrer et trier . Si oui sur quels criteres portent les tris et filtres ?
Enfin pour me simplifier la tache quelques exemples supplementaires seraient bienvenus
 
Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Merci encore une fois pour votre réactivité et votre implication.
Pour le répertoire j'ai remis un autre zip en pj de façon à ce que l'architecture vous soit plus clair qu'avec mes mots.
Pour l'utilisation d'un USF on peut surement le faire mais je n'en ai jamais créé personnellement.
Voici mes critères de tris et les différents choix possibles pour chaque colonne triable :
Colonne A : PDR, NOUV, SPE, SUPP, Nouv été 09, (vide)
Colonne E : Déposable, (vide), Sur commande spé
Colonne H : CDT, (vide)
Merci d'avance.
De quels autres élèments avez-vous besoin ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Insertion simple d'images à partir d'un repertoire

Re

Un debut
Les photos sont prises dans les repertoires cités (a adapter eventuellement dans la macro test)
Code: 
repertoires = "rep2,rep3,rep4,repertoire photo"
Les Filtres sur les colonnes A E et H ne sont pas cumulatifs
Je n'ai pas prévu de tri ,ne sachant pas quels seraient les criteres de tri
A tester avec 350 photos (j'ai des craintes quant a la vitesse d'execution)
Me tenir au courant S.T.P
Note: il est imperatif que la colonne B soit servie entirement (même si le nom de la photo est en colonne J)
 

Pièces jointes

Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

N
  • Résolu(e)
XL 2016 insertion image via boîte à outils dans un UserForm
2
Réponses
19
Affichages
554
Valtrase
  • Résolu(e)
XL 2010 Afficher image (réduction taille proportionnelle)
Réponses
10
Affichages
772
patricktoulon
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
784
vgendron
C
  • Résolu(e)
XL 2016 Formule permettant d'automatiser les infos d'un tableau à partir des infos de 3 autres tableaux
Réponses
3
Affichages
429
AtTheOne
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
1 K
ali591
A
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
309
oguruma
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
666
job75
M
  • Question Question
XL 2019 Images dans plusieurs cellules à partir de plusieurs URL
2
Réponses
15
Affichages
1 K
patricktoulon
  • Question Question
XL 2019 Impossible de coller une image
Réponses
3
Affichages
845
crocrocro
C
R
  • Question Question
XL 2013 Chemin après déplacement d'un dossier
Réponses
2
Affichages
600
Romain31
R
  • Question Question
Microsoft 365 MACRO VBA - Extraire des listes à partir d'une boucle
Réponses
5
Affichages
693
chris6999
EXCEL :: Cases à cocher - Connaître les détails d'un regroupement issu d'un GROUPER.PAR
Réponses
0
Affichages
573
oguruma
Z
  • Question Question
XL 2019 fichier trop lourd
Réponses
8
Affichages
1 K
patricktoulon
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
2 K
c.branco
C
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
3 K
olivier1984
O
J
  • Question Question
Microsoft 365 Absentéisme : création d'un 3ème tableau à partir de 2 tableaux distincts
2
Réponses
20
Affichages
2 K
Hasco
E
  • Résolu(e)
XL 2021 Problème d'importation de données à partir d'un fichier Excel vers un autre fichier Excel en utilisant VBA
Réponses
3
Affichages
985
eCHO
E
  • Question Question
XL 2021 Ouverture d'un PDF à l'aide d'un bouton clic et pour multi utilisateur PC
Réponses
3
Affichages
649
AugusteP
C
  • Résolu(e)
XL 2016 Colorer une carte a partir d'un tableau
2
Réponses
18
Affichages
2 K
cedric82
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…