Power Point Insérer des fichiers PDF dans un Powerpoint

[lolo_excelbeginner]

Bonjour à tous,

Je recherche un programme VBA qui permettrait d'insérer des fichiers PDF dans un PowerPoint. Tous les PDF seraient dans un dossier. Il faudrait que chaque page de PDF corresponde à une seule (nouvelle) diapositive. À savoir que les PDF peuvent contenir plusieurs pages chacun.

Merci d'avance de votre aide !

Cordialement,

LOLO

 

[kiki29]

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

 

[lolo_excelbeginner]

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

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

 

[kiki29]

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é !

 

[kiki29]

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