copie d'image ppt dans Excel

[gecanosaga]

Bonjour,

Voila mon problème :

Je possède 2 fichiers, un ppt qui est le résultat d'un script qui colle des screenshots sur des diapos(ce qui me donne une image par diapo) et un excel dans lequel je souhaite récupérer les screenshots afin de les copier dans des onglets distincts (une image par onglet)

J'ai vu des tutos permettant de créer un ppt à partir de données Excel mais en partant de là je n'arrive à rien !

quelqu'un pourrait il m'aider ?
merci (je précise c'est du VBA)

 

[Pierrot93]

Re : copie d'image ppt dans Excel

Bonjour,

regarde ce lien dans la FAQ, les pages de MichelXLD, en espérant que cela t'aide à avancer dans ton projet :
https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

Bon après midi
@+

 

[gecanosaga]

Re : copie d'image ppt dans Excel

Merci pour ton lien,
Malheureusement la section pilloter ppt depuis excel est vide....

Donc j'en suis toujours au même point🙁

 

[Guest]

Re : copie d'image ppt dans Excel

Bonjour,

Je viens de faire ceci, qui semble fonctionner. Il faut activer la référence à Microsoft PowerPoint dans l'éditeur VBE Menu Outils/Références.

Dans la Constante Chemin mets le nom complet (chemin+fichier.ppt) du fichier ppt à traiter.

Sub ImporterImagesPpt()
  Const Chemin = "NomCompletDuFichierPPT" 
 Dim oApp As New PowerPoint.Application
 Dim oPpt As Presentation
 Dim oDiap As Slide
 Dim oShp
 
 oApp.Visible = msoCTrue
 Set oPpt = oApp.Presentations.Open(Chemin)
 For Each oDiap In oPpt.Slides
    For Each oShp In oDiap.Shapes
        If oShp.Name Like "Picture*" Then
            oShp.Copy
            With ThisWorkbook.Sheets.Add()
                .Paste
            End With
        End If
    Next
 Next
 oPpt.Saved = msoCTrue
 oPpt.Close
 Set oPpt = Nothing
 oApp.Quit
 Set oApp = Nothing
End Sub

A+

 

[gecanosaga]

Re : copie d'image ppt dans Excel

merci pour ce code j'ai juste modifié la boucle pour l'adapter à mes besoins (je ne cré pas les onglets, ils existent déjà) et tout fonctionne nikel !🙂

Vraiment merci