Insérer un fichier PDF dans une cellule

soso69960 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
soso69960 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'aimerais savoir s'il serait possible d'insérer un pdf dans une cellule prédéfinie (que l'on aurait choisi) à l'aide d'une macro?

J'arrive à insérer un pdf mais seulement dans la cellule active. Voici mon code :

Sub insertpdf()
fileToOpen = Application.GetOpenFilename("pdf Files (*.pdf), *.pdf")
If fileToOpen <> False Then
ActiveSheet.OLEObjects.Add(Filename:= fileToOpen, Link:=False, DisplayAsIcon:=False).Select
Selection.ShapeRange.ScaleWidth 0.54, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
Else
MsgBox "pas de fichier selectionné"
End If

End Sub

Etant novice en VBA, je me permets de solliciter votre aide.



A voir également:

2 réponses

Réponse 1 / 2
redaiwa Messages postés 351 Date d'inscription   Statut Membre Dernière intervention   119
 
Salam soso69960.

Je pense que pour positionner ton objet sur la cellule D5 par exemple, il faut ajouter ce code : 

        With Selection
           .Top = Range("D5").Top
           .Left = Range("D5").Left
           .Height = Range("D5").Height
           .Width = Range("D5").Width
        End With



A essayer ! :)
0
Réponse 2 / 2
soso69960 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Du coup, j'ai trouvé la solution, voici le code qui fonctionne :

Sub CommandButton2_Click()


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


Et merci beaucoup pour ton temps redaiwa.
0