Power Point Insérer des fichiers PDF dans un Powerpoint

Salut, est-ce que cela t'aidera ? à toi de voir et adapter à ton contexte.

kiki29 à dit:

Salut, est-ce que cela t'aidera ? à toi de voir et adapter à ton contexte.

Cliquez pour agrandir...

Bonjour merci de ta réponse,

Malheureusement, ça ne m'aide pas beaucoup, j'ai déjà trouvé un code qui fait quasiment ce qui je souhaite.
Malheureusement il ne prend que la 1ère page des PDF et il faudrait que l'image soit "adaptée" au mieux à la diapo.
Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
Dim oSlide As Slide
Dim oLayout As CustomLayout

InitialFoldr$ = "C:\"

With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Sélectionner le Dossier contenant les PDF"
.InitialFileName = InitialFoldr$
.Show

If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$ & "*.pdf*")
Set oLayout = ActivePresentation.Slides(1).CustomLayout
Do While xFname$ <> ""
'Copie/colle du Pdf dans une nouvelle Slide
Set oSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, oLayout)
oSlide.Shapes.AddOLEObject FileName:=xDirect & "\" & xFname$
xFname$ = Dir
Loop
End If

End With

End Sub


Merci d'avance !

Cordialement,

LOLO

Salut, à télécharger puis consulter si curieux : Liste Contributions PDF
Y faire une recherche sur "Page", il te faudra peut-être Acrobat, Acrobat Reader, PDFCreator 1.7.3 pour poursuivre ?
Une remarque: formate ton code par pitié !

Salut, un exemple à adapter à ton contexte via Acrobat Reader