Importer PDF directement dans un classeur

Bonjour à tous,

Je cherche un moyen sur excel qui pourrait me simplifier la vie.

Pour mon job, je dois rédiger des rapports de contrôle et joindre des certificats du matériel que j'ai utilisé.

Actuellement, j'ai donc un classeur avec un tableau ou je renseigne le matériel utilisé.

J'aimerais qu'au moment ou je rentre un numéro d'identification d'un instrument de contrôle dans ce tableau , le certificat de ce dernier s'incrémente dans ce classeur, et qu'accessoirement, la pagination soit automatique . J'ai essayé avec le lien hypertexte, mais ça ouvre une autre page ou directement le document , et ça ne m'intéresse pas, il faut vraiment que le fichier soit dans le classeur...

Je précise que les fichiers que je voudrais incrémenter sont au format PDF.

Voilà, je ne sais absolument pas si c'est possible, mais qui ne tente rien n'a rien !

En vous remerciant d'avance,

Geoffrey

Bonjour Geoffrey,

édit: j'ai corrigé BackColor par ForeColor

à tester,

Sub Insertion_PDF_sur_Feuille()
Dim OleObj As OLEObject
Dim Fichier As Variant
Dim PosHori As Double, PosVerti As Double

CheminFichier = "C:\Users\isabelle\Documents\blabla.pdf" 'à adapter

If CheminFichier <> False Then
    PosHori = Range("B10").Left      'à adapter
    PosVerti = Range("B10").Top     'à adapter

    Set OleObj = ActiveSheet.OLEObjects.Add(Filename:=CheminFichier, Link:=False, DisplayAsIcon:=False)

        With OleObj
            .Locked = False
            .Left = PosHori
            .Top = PosVerti
            .Width = 150
            .Height = 180
            .Placement = xlMoveAndSize
            .PrintObject = True
            With .ShapeRange
                .Line.ForeColor.RGB = RGB(255, 0, 0)  ' couleur de contour
                .Line.DashStyle = msoLineSolid
                .Line.Style = msoLineSingle
                .Line.Visible = msoTrue
                .Line.Weight = 1.8
            End With
        End With
    End If
End Sub