Bonjour le forum !
Bien que mon sujet ne traite pas d'Excel, les fonctions ppt sont analogues à Excel donc j'ai pensé que je pouvais exposer le sujet ici.
Je tente de faire une macro ppt où, a partir de ma slide active (numéro X) de mon ppt Cible, je veux copier tous les objets d'une slide connue de mon ppt source (slide numéro 12 par exemple). Fichier se trouvant dans un dossier connu et coller tous ces éléments sur ma slide active de mon ppt cible.
Le code ci-dessous est un draft.
les problèmes :
Iil ne sélectionne pas tous les éléments de la slide déterminé
Il ouvre bien le ppt source
Il ne copie pas vers mon ppt cible à l'endroit de ma slide active
Avez-vous des éléments de réponses à m'apporter ?
Je vous remercie d'avance.
Cookies
Bien que mon sujet ne traite pas d'Excel, les fonctions ppt sont analogues à Excel donc j'ai pensé que je pouvais exposer le sujet ici.
Je tente de faire une macro ppt où, a partir de ma slide active (numéro X) de mon ppt Cible, je veux copier tous les objets d'une slide connue de mon ppt source (slide numéro 12 par exemple). Fichier se trouvant dans un dossier connu et coller tous ces éléments sur ma slide active de mon ppt cible.
Le code ci-dessous est un draft.
les problèmes :
Iil ne sélectionne pas tous les éléments de la slide déterminé
Il ouvre bien le ppt source
Il ne copie pas vers mon ppt cible à l'endroit de ma slide active
Code:
Sub launchpptandcopy()
Dim pptDoc As PowerPoint.Presentation
Dim pptApp As PowerPoint.Application
Dim Sld As Slide
Set Sld = ActiveWindow.View.Slide.SlideIndex
Set pptApp = New PowerPoint.Application
pptApp.Presentations.Open "C:\fichierSource.pptm"
With ActivePresentation
.Slides(1).Shapes.SelectAll.Copy
.Slides(Sld).Shapes.Paste
End With
End Sub
Avez-vous des éléments de réponses à m'apporter ?
Je vous remercie d'avance.
Cookies
Dernière édition: