Afficher un pdf dans feuille Excel sous forme d'icône

Bonsoir,

Je cherche à insérer un fichier pdf sous forme d'icône dans une feuille EXCEL.

J'ai trouvé un code, sauf que c'est une forme blanche qui apparaît en celulle "A1"; alors que je souhaiterai l'icône du pdf.

En fait, mon souhait de départ aurait été d'insérer une forme (exemple : un rectangle) et de placer l'icône à l'intérieur au lieu de le faire dans une cellule de la feuille. Est-ce possible ?

Ci-dessous, ma macro :

Option Explicit

Private Sub insertion_pdf_icone()

Dim Obj As OLEObject

Dim Chemin As Variant

Dim Nomfichier As String

Dim Emplacement As Range

Dim derniereLigne As Integer

derniereLigne = Range("A" & Rows.Count).End(xlUp).Row

Chemin = Application.GetOpenFilename(Title:="Insertion du fichier complémentaire aux explications")

If Chemin = False Then Exit Sub

Application.ScreenUpdating = False

Set Emplacement = Range("A" & derniereLigne)

With ActiveSheet

Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True)

End With

With Obj.ShapeRange

.LockAspectRatio = msoFalse

.Left = Emplacement.Left

.Top = Emplacement.Top

.Height = Emplacement.Height

.Width = Emplacement.Width

End With

Range("A" & derniereLigne) = Obj.ShapeRange.Name

End Sub

Merci par avance pour votre aide

Bonjour,

Ton code fonctionne bien.

Il y aurait eu avantage à le présenter sous balise ( voir bouton </> ci-haut )

À la ligne "derniereLigne ... ... " ajoute + 1 à la fin. Sinon, l'info de la dernière ligne est écrasée.

À l'endroit où l'icône sera insérée, est-ce que la cellule est suffisamment grande ? Car, le code dimensionne l'icône aux dimensions de la cellule cible. Si la cellule est petite, cela empêche peut-être de voir cette icône.

ric

Bonjour Mickael,

Je te propose de remplacer la ligne :

Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=False, DisplayAsIcon:=True)

par

Set Obj =.OLEObjects.Add(Filename:= Chemin, Link:=True, _
        DisplayAsIcon:=True, IconFileName:= _
        "C:\Windows\Installer\{AC76BA86-7AD7-1036-7B44-AC0F074E4100}\PDFFile_8.ico", _
        IconIndex:=0, IconLabel:=Chemin