Image dans commentaire problème

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 !

jokala40

XLDnaute Nouveau
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
 
Re : Image dans commentaire problème

Bonsoir,

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

Code:
    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+
 
- 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

Discussions similaires

Réponses
10
Affichages
554
Réponses
18
Affichages
324
Réponses
2
Affichages
287
Réponses
17
Affichages
1 K
Retour