Sujet Précédent Sujet Suivant

Insérer un fichier PDF dans une cellule

Fermé
soso69960 Messages postés 2 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 29 octobre 2014 - 29 oct. 2014 à 09:42
soso69960 Messages postés 2 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 29 octobre 2014 - 29 oct. 2014 à 10:35
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 mardi 7 octobre 2008 Statut Membre Dernière intervention 25 janvier 2024 119
29 oct. 2014 à 10:24
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 mercredi 29 octobre 2014 Statut Membre Dernière intervention 29 octobre 2014
29 oct. 2014 à 10:35
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