Sub Inserer()
Dim OLEobj As OLEObject
Dim Gauche As Double, HautTop As Double, Largeur As Double, Hauteur As Double
Dim FileToOpen As String
For n = 10 To 45 Step 5
If Range("B" & n) = "" Then
Range("B" & n).Select
ChDrive "U"
ChDir "U:\dossier1"
[B]FileToOpen = Application.GetOpenFilename("Fichiers Pdf(*.pdf), *.pdf")[/B]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:= _
[B]"C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe", IconIndex:=0, IconLabel:=Dir(FileToOpen))[/B] With OLEobj
.Left = Gauche: .Top = HautTop
.Width = Largeur: .Height = Hauteur
End With
End If
Range("B" & n) = 1
Exit Sub
End If
Next
End Sub