insérer une image dans un commentaire (exel) Fermé

Question

Bonjour,
dans exel 2007, peut ton inserer une image (provenant de mon disque dur) dans le commentaire d'une cellule (qui n'a pas de fonction) ?

merçi de votre réponse.

eriiic · Accepted Answer

Bonsoir lebowski et argixu,

Allez, j'ai pitié pour ta souris et je te propose une macro pour ajouter les images en commentaires.
- Saisir le répertoire de l'image 2 colonnes à gauche de la cellule destinée à avoir le commentaire,
- saisir le nom du fichier de l'image 1 colonne à gauche,
- sélectionner la plage des cellules recevant les commentaires
- lancer la macro

Sub AjoutImageCommentaire()
    Dim c As Range, img As String
    For Each c In Selection
        img = c.Offset(0, -2).Value & c.Offset(0, -1).Value
        On Error Resume Next
        c.AddComment
        c.Comment.Visible = True
        c.Comment.Shape.Select True
        Selection.ShapeRange.Fill.UserPicture img
        Selection.ShapeRange.LockAspectRatio = msoFalse
        c.Comment.Visible = False
    Next c
End Subexemple : ImgCommentaires.xls

eric

Utilisateur anonyme · Answer

Bonjour

Insertion / Commentaires
Sélection de la boite du commentaire 
Bouton droit / Format de commentaire / Clic sur flèche en face de couleur / Motifs et textures / onglet image / Sélection image : chercher le chemin / Verrouiller les proportions / OK / OK

Utilisateur anonyme · Answer

oups... sous excel 2007 c'est :

Menu Révision / Nouveau commentaire
Sélection de la boite du commentaire
Bouton droit / Format de commentaire / -Onglet couleurs et traits- / Clic sur flèche en face de couleur / Motifs et textures / onglet image / Sélection image : chercher le chemin / Verrouiller les proportions / OK / OK

Utilisateur anonyme · Answer

Ouahh !!! He ben, patience et courage pour toi ! Mais que ce sera zoli !!

Utilisateur anonyme · Answer

Bonsoir,

Géant Eric !! Je l’ai fait et même avec moi… la réfractaire aux macros…, ça marche nickel !! 
Pauvre lebowski, il va attraper une tendinite… Pourvu qu’il revienne voir ton message !!
Un grand merci, encore une fois.

Bonne soirée.

eriiic · Answer

Bonjour,

Tu peux fixer la taille du commentaire en ajoutant après  c.Comment.Shape.Select True :
c.Comment.Shape.Height = 150 'hauteur
c.Comment.Shape.Width = 200 ' largeur
Mais il y a un pb, c'est que les images des commentaires sont intégrées au fichier excel, et il prendra une taille phénoménale si tu y mets 5000 images. Et le temps de chargement du fichier sera en conséquence...

Je te propose de faire autrement : fabriquer le commentaire lors du clic sur la cellule et de le détruire lors d'une autre sélection. Les images sont attendues dans un répertoire img qui doit être au même niveau que le fichier excel (chemin relatif pour pouvoir copier l'ensemble n'importe où, y compris sur un cd).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim img As String
    [D:D].ClearComments
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    img = ".\img\" & Target.Value
    On Error Resume Next
    Target.AddComment
    Target.Comment.Visible = True
    Target.Comment.Shape.Select True
    Target.Comment.Shape.Height = 150 'hauteur
    Target.Comment.Shape.Width = 200 ' largeur
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Fill.UserPicture img
    Target.Comment.Visible = False
    On Error GoTo 0
End Sub
Exemple : ImgCommentaires.xls
Penser à créer le répertoire img pour tester...
eric

lebowski · Answer

bonjour 

pour le nouveau macro qui se déclanche seulement si on sélection la cellule, l'image associée n'apparait pas !

Alors que le dossier img comportant les images se situe bien à côté du fichier exel. Et que j'ai également nommé les cellules (en colonne D ).

ke s pa s til ?

eriiic · Answer

Je ne sais pas, je viens de retester c'est ok...
Le code est à coller dans le code de la feuille, pas dans un module. Teste avec le fichier exemple d'abord...
Dans un répertoire tu dois avoir le fichier excel et un sous-répertoire nommé 'img' avec tes images.
Le nom complet du fichier Hiver.jpg doit être dans la cellule, le triangle rouge indicateur de commentaire doit apparaitre au clic et le curseur souris doit être sur la cellule pour voir l'image.
Après     On Error Resume Next ajoute
    MsgBox (img)
une fenetre avec .\img\Hiver.jpg (par exemple) doit apparaitre au clic
eric

lermite222 · Answer

Bonjour tous, Eric,
Peut-être une cause de la défaillance ?
dim Chemin as string
    Chemin = ThisWoorkbook.Path
    img =Chemin &  "\img\" & Target.Value

Le directory actif n'est pas nécessairement celui de l'appli.
A+

lermite222 · Answer

Comme Eric ne semble pas être en ligne je me permet de continuer...
Pour être certain que tu est dans le bon répertoir;
Si tu a un répertoir disting pour ton appli ex: E:\MonAppli et que tu a créer un sous-répertoir img la fonction path convient.
Si tu à créer le répertoir ailleur, genre E:\img c'est la deuxième solution.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim img As String, Chemin as String
    [D:D].ClearComments
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Target.Cells.Count <> 1 Then Exit Sub
    'Solution 1
    Chemin = Application.path & "\img\"
    'Solution 2
    Chemin = "E:\img\"
    img = Chemin & Target.Value
    On Error Resume Next
    Target.AddComment
    Target.Comment.Visible = True
    Target.Comment.Shape.Select True
    Target.Comment.Shape.Height = 150 'hauteur
    Target.Comment.Shape.Width = 200 ' largeur
    Selection.ShapeRange.LockAspectRatio = msoFalse
    Selection.ShapeRange.Fill.UserPicture img
    Target.Comment.Visible = False 'Pour enlever l'édition
    Target.Comment.Visible = True
    On Error GoTo 0
End Sub
L'emploi de chemin relatif est asser difficile à maitriser, il faudrait employer les fonctions CHDrivre et CHDir pour être sûr qu'ont est dans le bon.
A+

eriiic · Answer

Bonsoir tout le monde,

Je me demande si le pb n'est pas dû à un bug sur excel 2007.
Je viens de tester ta version lermite. Sur 2003 c'est ok, sur 2007 rien ne s'affiche...
Il y en avait déjà un qui empêchait l'affichage d'une image dans un objet image si c'était une adresse internet de fournie. J'ai l'impression qu'il y en un de plus pour les commentaires, et là même les images locales ne s'affichent pas...

Ne pas s'axer sur le chemin relatif, dans ma version il fallait le chemin complet c:\img\collines.jpg dans la cellule. 
Cette notion est apparue lorsque je lui ai conseillé
Après On Error Resume Next ajoute
MsgBox (img)
une fenetre avec .\img\Hiver.jpg (par exemple) doit apparaitre au clic 
pour qu'il contrôle le repertoire des images, là excel n'affiche que le chemin relatif

Ca serait bien que ceux qui ont des pb confirme leur version excel

eric

Utilisateur anonyme · Answer

Bonsoir tout le monde,

Est-ce que je peux intervenir. J'avais gardé le fichier d'Eric 
Mais c'est pour dire que justement je n'ai pas de problème !! Sur excel 2003 et sur 2007.

Pourtant, le chemin ne respecte pas ses consignes :
- Le fichier excel est sur D:\MES DOCUMENTS\CCM (dossier mes documents qui part automatiquement sur une partition D, suite à un récent plantage de mon micro)
- Les images que je remonte sont sous sur C:\Documents and Settings\Argitxu\Mes images\ Chemin que j'ai mis dans le fic excel en colonne A sur 4 lignes avec le \ à la fin et le nom du fichier image en B : toto.jpg.

En lançant la macro sur C1-C4, mes images s'affichent sans souci.
Je viens de rajouter le MsgBox (img) à la macro, et en lançant il me demande bien de confirmer pour chacune des 4 lignes ce message :  C:\Documents and Settings\Argitxu\Mes images\ . et tout remonte. 
Et en rajoutant encore le c.Comment.Shape...qque chose....pour caler la hauteur, c'est toujours bon sur les 2 versions d'excel.

Bon, c'était au cas où... suis pas sûre que ça vous aide à trouver ;-)

eriiic · Answer

Bé oui Argixu, tu peux intervenir, et tu as bien fait :-)

Du coup je me suis repenché sur le fichier que j'avais mis au post 8 car j'avais un peu oublié ce que j'avais fait...
En fait j'avais mis 2 versions :

- une avec les images stockées dans le fichier. Se sert des colonnes A, B et C pour le résultat. Une fois la macro appelée par le bouton on peut supprimer A:B. C'est la macro qui est dans le module.

- une seconde version avec les images hors fichier (dans un répertoire .\img\ sous-répertoire au niveau du fichier .xls), et c'est celle là qui pose effectivement problème. Celle-ci ne se sert que des noms de fichiers mis en colonne D. C'est la macro qui est dans la feuille.
Et comme l'a justement remarqué lermite le pb vient bien du chemin relatif que l'on corrige en remplaçant avec 
img = ThisWorkbook.Path & "\img\" & Target.Value

la version corrigée ImgCommentaires.xls qui marche sur 2003 et 2007

Bonne nuit à tous
eric

Utilisateur anonyme · Answer

Bonjour,
Eric, tu as bien compris. En fait je voulais dire à Mike que le fichier marchait bien. Mais, misère ! j’avais fait les choses à moitié. Dans le fichier que j’avais gardé sur mon disque, je ne me rappelais plus que j’avais enlevé la colonne D (peut-être pour tester plus vite), celle justement qui vous a posé souci. Donc excuses, un coup pour rien ;-)
Du coup, je l’ai essayée cette fois-ci ta dernière solution 2 en D, avec tout comme tu as dit : Un dossier avec le xls et son sous-dossier \img\ qui est excellente ! 
Et qui marche aussi avec le dossier copié sur clé USB pour l’emporter.

Encore Bravo et merci Eric et bien sûr aussi à Lermite et Mike.
Bonnes fêtes à vous tous.

Nemile · Answer

Salut tout le monde, le sujet est vieux, certes, mais toujours utile !
C'est pourquoi j'ai utilisé le premier code fourni, ça marche. Mon problème c'est que mes commentaires sont des cases d'une base de données que j'utilise pour un tableau croisé dynamique. Mais le commentaire n'est pas transporté dans le tableau...

Insérer une image dans un commentaire (exel)

15 réponses

Discussions similaires