Hello,
Avec ce code pour insérer un document PDF dans une feuille Excel avec mise à l'échelle :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub InsererPDF()
Dim docPDF
Worksheets("Feuil1").OLEObjects.Add Null, "D:\Dev\Office\Excel\Doc1.pdf", msoFalse, msoFalse
Set docPDF = Worksheets("Feuil1").Shapes(Worksheets("Feuil1").Shapes.Count)
Debug.Print docPDF.Type
Select Case docPDF.Type
      Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
            msoOLEControlObject, msoLinkedPicture, msoPicture
        docPDF.ScaleHeight 0.5, msoTrue
        docPDF.ScaleWidth 0.5, msoTrue
      Case Else
        docPDF.ScaleHeight 0.5, msoFalse
        docPDF.ScaleWidth 0.5, msoFalse
End Select
End Sub
j'ai systématiquement une erreur sur la ligne docPDF.ScaleHeight 0.5, msoTrue
Erreur d'exécution '-2147024809 (80070057)':
L'argument ProportionnelTailleOrigine ne s'applique qu'à une image ou un objet Ole.
Alors que docPDF est de type 7 c'est à dire msoEmbeddedOLEObject.

version d'Excel : Microsoft® Excel® 2016 MSO (Version 2111 Build 16.0.14701.20204) 32 bits en français

Ami calmant, J.P


[/QUOTE]