Discussion :

[wboyer]

Bonjour à tous,

Je souhaite automatiser l'insertion de photos dans une zone de commentaire.
Mon tableur excel est décomposé en 2 colonnes A et B.
La cellule A1 contient le nom de la photo à insérer dans la zone de commentaire de la cellule B1. Et il faut faire cette manip pour les lignes suivantes.

Malgré mes tentatives, je ne parviens pas à créer cette macro.
Avez vous une idée?

Merci d'avance!!

[wboyer]

Merci Pascal pour cette réponse. Effectivement cela répond à mes besoins.
J'ai essayé de modifier le code pour que ca colle à mon tableau. J'y ai ajouté une boucle. De plus je souhaite que l'image s'insère en fonction de la valeur de la colonne B. L'image insérée porte le même nom que la valeur de la colonne B. Tu trouveras ci dessous le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Option Explicit
 
Sub CommentaireAvecImage2()
Dim DossierImages As String, Fichier As String, i As Integer, name As String
  For i = 2 To 3 'initialisation de la boucle'
  name = CStr(Cells(i, 2).Select)  ' name va prendre la valeur texte du contenu de la cellule Bi'
  DossierImages = "C:\image\"
  Fichier = "name.jpg"
 
  With Cells(i, 3)
    .ClearComments
    .AddComment
    .Comment.Text Text:=""
    With .Comment
      .Shape.Fill.UserPicture DossierImages & Fichier 'blocage à cette ligne'
      .Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
      .Shape.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
      .Shape.LockAspectRatio = msoFalse
      .Shape.Height = 159.75
      .Shape.Width = 120#
    End With
  End With
  Next
End Sub

Mon problème c'est que j'ai une erreur d'execution à la ligne suivante: .Shape.Fill.UserPicture DossierImages & Fichier


une idée?

[Theze]

Bonjour,

Et de cette façon ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sub CommentaireAvecImage()
 
    Dim Fichier As String
    Dim I As Integer
 
    For I = 2 To 3 'initialisation de la boucle'
 
        Fichier = "C:\image\" & Cells(I, 2).Value & ".jpg"
 
        With Cells(I, 3)
 
            .ClearComments
            .AddComment
            .Comment.Text Text:=""
 
            With .Comment.Shape
 
                .Fill.UserPicture Fichier
                .ScaleWidth 1, msoFalse, msoScaleFromTopLeft
                .ScaleHeight 1, msoFalse, msoScaleFromTopLeft
                .LockAspectRatio = msoFalse
                .Height = 159.75
                .Width = 120#
 
            End With
 
        End With
 
    Next I
 
End Sub

Hervé.

[wboyer]

Merci Hervé. Ca à l'air de fonctionner. J'ai également retravaillé mon code ce matin et il fonctionne. Pour ceux qui sont intéressés le code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub CommentaireAvecImage2()
Dim DossierImages As String, Fichier As String, i As Integer, name As Variant
 
For i = 22 To 27 'initialisation de la boucle'
name = Cells(i, 2).Value ' name va prendre la valeur texte du contenu de la cellule Bi'
DossierImages = "C:\image\"
Fichier = name & ".png"
 
With Cells(i, 2)
.ClearComments
.AddComment
.Comment.Text Text:=""
With .Comment
.Shape.Fill.UserPicture DossierImages & Fichier 'blocage à cette ligne'
.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
.Shape.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
.Shape.LockAspectRatio = msoFalse
.Shape.Height = 159.75
.Shape.Width = 120#
End With
End With
Next
End Sub