ajout d'une nouvelle slide sur PPT

  • Initiateur de la discussion Initiateur de la discussion nicolasa
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

nicolasa

XLDnaute Nouveau
Bonjour à tous,

je me prends la tête depuis pas mal de temps sur un macro.

Cette macro doit ouvrir un document Ppt, ajouter une nouvelle slide avec le layout normal.

Je sais que cette question à déjà été traitée mais aucune des solutions proposées ne convient. Je ne suis pas expert alors j'ai du mal aussi à adapter les bouts de codes...

Code:
Sub Macro10()

Dim AppPwrpt As PowerPoint.Application
Dim DocPwrpt As PowerPoint.Presentation
Dim AppExcel As Excel.Application
Dim DocExcel As Excel.Sheets
Dim NbShpe As Byte

'creation session PowerPoint
Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    
'ouverture fichier ppt
    
Set PptDoc = PPT.Presentations.Open("\\FRPA-FPS01\nartzimovitch$\SFE\Ville\Rapports DUO\template rapport duo.ppt")

With DocPwrpt.Application.ActivePresentation.Slides.Add(Index = 1, ppLayoutTitleAndText) = True
End With



End Sub

Le code se déroule bien jusqu'a 'ajout d'une nouvelle slide...

merci de votre aide!!
Nicolas
 
Re : ajout d'une nouvelle slide sur PPT

Bonjour

à tester :

Code:
Sub Macro10()

Dim AppPwrpt As PowerPoint.Application
Dim DocPwrpt As PowerPoint.Presentation
Dim AppExcel As Excel.Application
Dim DocExcel As Excel.Sheets
Dim NbShpe As Byte

'creation session PowerPoint
Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    
'ouverture fichier ppt
    
Set DocPwrpt = PPT.Presentations.Open("\\FRPA-FPS01\nartzimovitch$\SFE\Ville\Rapports DUO\template rapport duo.ppt")

DocPwrpt.Slides.Add 1, 1


End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour