Insérer un fichier PDF dans une cellule
soso69960
Messages postés
2
Statut
Membre
-
soso69960 Messages postés 2 Statut Membre -
soso69960 Messages postés 2 Statut Membre -
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.
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.
2 réponses
-
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 ! :)
-
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.
