Titre du sujet : Re: Insérer un pdf à l'aide d'une macro
par myDearFriend! le 15/04/2010 14:51:59
Bonjour vodkaddict ,
Ci-dessous, peut-être une réponse à ta question, si j'ai bien compris...
DANS UN MODULE DE CODE STANDARD (ex : Module1)
Sub InsererPDF()
'myDearFriend! - www.mdf-xlpages.com
Dim Obj As OLEObject
Dim Chemin As Variant
Dim T As String
'Choix du fichier PDF
Chemin = Application.GetOpenFilename("Fichiers PDF(*.pdf),*.pdf", Title:="Choisir le fichier .PDF à insérer")
If Chemin = False Then Exit Sub
Application.ScreenUpdating = False
'Création nouvelle feuille
With Worksheets.Add(After:=Worksheets(Worksheets.Count))
On Error Resume Next
.Name = Left(Mid(Chemin, InStrRev(Chemin, "") + 1), 31)
'Insertion de l'objet PDF
Set Obj = .OLEObjects.Add(Filename:=Chemin, Link:=True, DisplayAsIcon:=False)
End With
Obj.Left = 1
Obj.Top = 1
Application.ScreenUpdating = True
End Sub
Cordialement,
|
Didier FOURGEOT