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:

Insérer un fichier PDF dans une cellule
Fichier rar - Guide
Comment compresser un fichier pdf - Guide
Lire le coran en français pdf - Télécharger - Histoire & Religion
Fichier host - Guide
Comment faire un fichier pdf - Guide

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 ! :)

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.

Discussions similaires

comment donner les droits sur fichier partage

Discussions similaires

Newsletters