Sub Inserer_Objet_Fichier()
Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double
Dim FileToOpen As String
ChDir "C:\Users\bibi\Documents\jphi" 'Répertoire à adapter
FileToOpen = Application.GetOpenFilename("Fichiers Pdf(*.pdf), *.pdf")
If FileToOpen <> "Faux" Then
Gauche = ActiveCell.Left: HautTop = ActiveCell.Top
Largeur = ActiveCell.Width * 2: Hauteur = ActiveCell.Height * 4
Set OLEobj = ActiveSheet.OLEObjects.Add(Filename:=FileToOpen, _
Link:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe", IconIndex:=0, IconLabel:=Dir(FileToOpen))
With OLEobj
.Left = Gauche: .Top = HautTop
.Width = Largeur: .Height = Hauteur
End With
End If
End Sub