Bonjour à tous,
Je voudrais insérer un PDF de plusieurs page dans une cellule ou à partir d'une cellule, seulement avec le code que j'ai, je peux seulement visionner la première page de mon PDF.
Voici mon code :
Sub insertpdf()
fileToOpen = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf")
If fileToOpen <> False Then
Range("B369").Select
ActiveSheet.OLEObjects.Add(Filename:= fileToOpen, Link:=False, DisplayAsIcon:=False).Select
Else
MsgBox "pas de fichier selectionné"
End If
End Sub
Ce code fonctionne, il affiche un PDF à partir de la cellule désigner (ici B369).
Merci de m'aider si c'est possible bien sur.