Image dans commentaire problème

[jokala40]

bonjour,

Voila je vous explique un peu le problème:

Je veux créer un projet excel dans lequel une première page nommée Fiche permet de rentrer des renseignement et de mettre une photo en A9. Grace à un bouton valider, je veux que ces informations s'enregistre dans une autre feuille nommée Liste. Pour les données texte, pas de problème tout marche correctemet. J'ai juste un problème pour l'image:

Je veux mettre l'image située en A9, dans la feuille Fiche, dans le commentaire de la cellule B2 de la feuille Liste.

J'ai cherché sur le forum et j'ai trouvé la solution donné par Boisgontier dans un autre sujet. Mais un message d'erreur s'affiche:
" Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet"

Je clique alors sur débogage et la ligne "s.Copy" se surligne.

J'ai beau cherché mais je trouve pas ce qui cloche.
Je vous mets l'intégralité de mon code vba et attends vos réponses:

Sub Valider()

Sheets("Liste").Select
[B1].AddComment

répertoire = ThisWorkbook.Path
Sheets("Fiche").Cells(9, 1).CopyPicture
x = Sheets("Fiche").Cells(9, 1).Width
y = Sheets("Fiche").Cells(9, 1).Height
ActiveSheet.Paste Destination:=Range("A1") 'crée un shape
Set s = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:=répertoire & "\monimage.gif", FilterName:="gif"
.Shapes(ActiveSheet.Shapes.Count).Delete
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
On Error Resume Next
Target.Comment.Delete
Target.AddComment
Target.Comment.Shape.Fill.UserPicture répertoire & "\monimage.gif"
Target.Comment.Shape.Height = y
Target.Comment.Shape.Width = x
'
' Valider Macro
'
Sheets("Liste").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("1:1").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:1").Select
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Copy
Rows("4:4").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

[B1].ClearComments


End Sub

Merci d'avance

 

[Guest]

Re : Image dans commentaire problème

Bonsoir,

Si tu connais le Chemin vers l'image, il y a plus simple:

    With Sheets("Fiche").Range("B2")
        .AddComment
        .Comment.Visible = False
        .Comment.Shape.Fill.Transparency = 0#
        .Comment.Shape.Fill.UserPicture [B][SIZE=3]CheminVersImage[/SIZE][/B]
    End With

A+

 

[jokala40]

Re : Image dans commentaire problème

Le truc c'est que l'image est celle de la feuille fiche. L'adresse est alors variale selon les images

 

[jokala40]

Re : Image dans commentaire problème

personne n'a une idée?